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System Tape - 

The system tape is loaded from the dead start panel via tape 
unit 50. This tape contains the operating system and the peripheral 
and central program libraries. Dead start panel settings are as 
follows . 



01 


W10 


02 


7305 


03 


0006 


Ok 


7505 


05 


7113 


Go 


0000 


07 


7705 


10 


2000 


11 


7705 


12 


2020 


13 


7^05 


Ik 


7105 



ciata 



The system tape is completely loaded at dead start time. All 
is transferred to the channel disk file. The tape is not 



referenced during system operation. 

The system tape contains a single file of binary records in 
standard format. There is one file mark at the end of the data. 
Copies of the system tape may be made by C0PYBF in the central 
library on either tape or cards. Data on the system tape is organized 
as follows. Each item is treated as one record. 

Load package . 

System display (DSD ) . 

Monitor (MTR). 

Central resident (CR). 

Peripheral package 1LT. 

Peripheral package 1TD . 

Peripheral package 2PC . 

Peripheral package BMP. 

Peripheral .package LBC . 

Peripheral package L0C . 

Peripheral package PBC . 

Peripheral package DIS . 

Peripheral package SIM. 

(zero length record) 

Central library (one record each package) 



Dead Start Load - 

The dead start load of the system tape begins with the dead 
start panel settings on peripheral processor 0. Processor 
transfers a short program to processor 5 which reads the first 
record from tape 50 on channel 5. This first record contains the 
peripheral resident program which is common to all processors and 
a transient package which loads the remainder of the system tape. 

Processor 5 transfers the peripheral resident program to the 
other nine processors over their respective channels. Processor 
5 then reads the next record from the system tape (DSD) and transfers 
it to processor 9. Processor 5 then reads the third record from the 
system tape (MTR) and transfers it to processor 0. Processor 5 
then reads the next record from the system tape and transfers it to 
central storage. Processor 5 then disconnects all channels other 
than 5. This action starts execution in all ten processors. Processor 
n *« permanently assigned the job of system monito r . Processor^ 9 
is permanently assigned the job of system display. The other eight 
processors form a pool for temporary assignment of I/O packages. 

Processor 5 reads the system tape to a zero length record. Eech 
record prior to the zero length record is transferred to the disk 
file on channel as a peripheral package. An entry is made in the 
Peripheral Library Directory (PLD) as each package is transferred. 

Processor 5 then reads the remainder of the system tape and 
transfers each record to the channel zero disk file as a central 
processor package. An entry is made in the Central Library Directory 
(CLD) for each package transferred. Processor 5 then idles in 
the resident peripheral program until action is requested as a pool 
PP. 



Equipment Numbers - 

Each peripheral equipment is assigned a two digit octal number 
to uniquely identify the equipment for job assignments. This 
equipment number is the same as the relative location of the equipment 
data in the equipment status table. Numbers are assigned as follows. 
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- Channel 


51 
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- Channel 


62 
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- Channel 
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- Channel 


71 


- Channel 
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- Channel 
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- Channel 



disk file. 

1 disk file . 

2 disk file. 

h card reader. 

12 card reader. 

13 card punch. 
13 line printer. 

10 display. 

11 display. 

3 one inch tape . 
3 one inch tape . 
3 one inch tape . 
3 one inch tape . 
h naif inch tape . 
k half inch tape . 
k half inch tape . 
h half inch tape. 
5 half inch tape . 
5 half inch tape ■ 
5 half inch tape, 

5 half inch tape , 

6 one inch tape . 
6 one inch tape . 
6 one inch tape . 

6 one inch tape . 

7 one inch tape . 
7 one inch tape . 
7 one inch tape . 

7 one inch tape 



Central Storage Special Addresses - 

Central storage addresses 0000 thru 7777 are reserved for 
tables and communication areas for the operating system. Special 
fixed storage locations are as follows. 

0000 Zero 

0001 RPL, , , , .Tte«aaL+96friffr-MS«*v 

0002 PLD, limit, , , , /?«*uph.Ci&.^*eU 

0003 DFB, input, output, limit, . ' 

0004 FNT, limit, , , . ¥^6 ^Am&ta^6 

0005 EST, limit, , , . SSW**** **b* wW* 

0006 RSL, limit, , , . **w* ***** »>»«/ 

0007 CLD, limit, , , . C^W w*i/^ ^<****jl 

0010 TRTO, last track, , GO to G3, G4 to G7 ,0 r^j^ 

0011 TRT1, last track, , GO to G3, G4 to G7. \ t^x?^"^ 

0012 TRT2, last track, , GO to G3, G4 to G7 . -* <™M#* 
0014 Monitor step control. 

0015/0017 Channel status table. 
0020 CP zero status. 

0023 idle time for central processor. 

0024 idle time for peripheral processors. 

0026 XJ address for simulator. 

0027 P address for simulator. 
0030/0037 time and date line. 
0040/0052 starting time counts. 
0055 temporary storage for monitor. 
0056/0057 CP stack indicators. 
0060 PPl communication area. 

0070 PP2 communication area. 

0100 PP3 communication area. 

0110 PP4 communication area. 

0120 PP5 communication area. 

0130 PP6 communication area. 

0140 PP7 communication area. 

0150 PP8 communication area. 

0160 PP9 communication area. 

0170 PP0 communication area. 

0200 Control point one area. 

0400 Control point two area. 

0600 Control point three area. 

1000 Control point four area. 

1200 Control point five area. 

1400 Control point six area. 

1600 Control point seven area. 



Control Point Area Information - 

There are seven control points. Each occupies 200 octal 
locations and includes the following information. 

000/017 exchange package 
020/022 status information 
023 central processor running time. 
— — 02^ peripheral processor running time 

025 PP recall input register 

026 sense lights and switches 

027 equipment assignments 
030/037 last dayfile message. 
01+0/177 control statement "buffer. 

Word 020 - 

(12) status "byte (W, X, 1, 2, 3, h, 5, 6, 1, 3, 9, 0) 

(12) error flag. 

(12) storage move flag. 

(l2) reference address (hundreds). 

(12) field length (hundreds). 

Word 021 - 

(J+8) job name in display code. 
(12) next statement address. 

Word 022 - 

(12) priority. 

(12) message count. 

(12) tract count. 

(12) time limit (8 sec increments). 

(12) operator assigned equipment* 

Word 023/024 - m, . 21 - »P w 



l« 




(210 not used. MM^IX^^^ ** - ft r«*> 

{2k) second count. 
12) millisecond count. 



Equipment Status Table - 

The equipment status table contains a one word entry for each 
physical equipment in the system. Format is as follows. 

(12) Control point address. 

(12) Channel number. 

(12) Synchronizer and unit number. 

(12) Equipment type. 

(12) Not used. 

Equipment type designations are as follows, (display code) 

(DA) Channel zero disk cabinet. 

(DB) Channel one disk cabinet. 

(DC) Channel two disk cabinet. 
(DS) Display console. 

(CP) Card punch. 

(CR) Card reader. 

(LP) Line printer. 

(MT) 607 magnetic tape. 

(WT) 626 magnetic tape. 

The upper bit of the equipment type designator is used as an 
interlock for equipment which is turned off. This bit is set when 
the equipment is not available and cleared when the equipment is 
available. 



Channel Status Table - 

The channel status table occupies 3 words (0015/0017) in resident 
central storage. These three words are read into monitor peripheral 
storage for updating and the first 12 bytes in these three words are 
then associated with the 12 1/0 channels. Two psuedo-channels (octal 
14 and 15) are used for access to the FNT/FST entries. A cleared 
byte indicates the channel is not assigned. A processor number 
indicates the channel assignment. 



File Name Table / File Status Table - 

The name and status of all system files are kept in common 
table structure. This table contains two words per entry. The 
first word identifies the file and the second word records the 
status of the file. Formats for each two word entry is as follows. 

First Word. 

(42) file name in display code. 

(6) priority number. 

(6) not used. 

(3) file type (0 = input, 1 = output, 2 = common, 3 = local). 

(3) control point assignment. 

Second Word. (disk file) 
(12) equipment number. 
(12) beginning track. 
(12) current track. 
(12) current sector. 
(12) last buffer status. 

Second Word. (tape file) 
(12) equipment number, 
(24) last block number. 
(12) not used. 
(12) last buffer status. 

Second Word. (card file) 
(12) equipment number. 
(24) card count this record. 
(12) end of job flag. 
(12) last buffer status. 

The buffer status byte in the file status word serves as an 
interlock for peripheral processor access to the corresponding file 
data. The last buffer status has an even numerical value while a 
peripheral package is altering the file data. The last buffer status 
has an odd value when no peripheral action is involved with the file. 
Pseudo- channel 14 is requested for access to an existing file status! 
Pseudo- channel 15 is requested for access to enter a new file name in 
the table. 



Resident Peripheral Library - 

Central storage addresses 10000 thru 13777 are reserved for 
resident peripheral packages. Each package begins with a control 
word in the following format. 

(42) package name in display code. 
(18) package length. 

The last package is followed by a blank word. 



Peripheral Library Directory - 

A directory of peripheral packages located in the disk file 
library is kept in resident central storage. Each entry in the 
directory requires one central word. Format of this word is as 
follows: 

(42) package name in display code. 
(6) sector number. 
(12) track number. 



Resident Subroutine Library - 

Central program subroutines which are most frequently used 
are kept in resident central storage. A program calling for these 
subroutines may read them directly from this RSL (Resident Sub- 
routine Library) area rather than from the disk file library. 
Each subroutine in the RSL is preceded by a one word tag in the 
following format. 

(42) package name in display code. 
(18) package length. 

The last package is followed by a blank word. 



Central Library Directory - 

Central programs and subroutines which are not stored in the 
RSL are stored in a disk file library. A directory of these pro- 
grams and subroutines is kept in central storage (CLD) . Each entry 
in this directory consists of one central word in the following 
format. 

(42) package name in display code. 
(6) sector number. 
(12) track number. 



Bisk File Organization - 



in the disf S ™? f a f±leS ' 8nd binary data files «* "ored 
mectonism anf« •, ^ ^ iD * ° OI,m0n etruc ^e. The addressing 
mechanism and file marking system are the same for all types of 

„„* = ?* physical disk structure of cabinets, head groups tracks 

natalr^ £sk record*™ ^^ ^ & 8in6le Pr °° eSS ° r •"««** 

continuat^fhf^acksl ^^nglTdisk ^/^SlIT 

S ^.f ^ leDSth Wituin the "»"» ^ the storage capacity of 

^h ^ 6t " Th6re are 20W half tracks i" a^isk caMnet 
which may be grouped into named files of any lert L h II 

file must begin at the first sector of a ZL trfc k. ""^ 

the ^ata^s in a IttloT^ r^T?, 1 **" ** ^"^ t0 
designates the^ocation of^'nex^ sector in ^nalTSe^The 

™t C s e n ctor **% QeS + i6nateS the ^ ber o^t-r^rd'sln the^ 
Hector! tteSe tW ° C ° ntro1 bytes ^ «« "rst two bytes in 

of two ?ormfts St ITT 1 **? V dlSk " le seotor is <=°^ in one 
„t ; wo n Ior ™ ats - If the next sector is in the same half track the 
control byte is coded with the next sector number (MOO thru SoT^ 

half trf f SeCt ° r ln tb£ named track is «* beginning of ^ new 77 ^ 

^OO^'j^^^ltVr^s^ t hB A Xt ^ ^ — r. 

""' ine lormat for this control byte is as follows. 

(l bit) always set. 

(7 bits) track number, 

(l bit) odd/even track. 

(3 bits) head group number. 



The control bytes for the last sector in a named file are both 
«.««. This sector is read as a file mark Mo ri*+77f ? 
disk file after the first file mark! ^ aPPear ±n a 



zero. 



Track Reservation Tables - 

A 2C&8 bit reservation table is maintained in resident 
central storage for each disk file cabinet. One bit in the table 
corresponds to each half track in the disk cabinet. Each table 
occupies 6k central words and uses the lowest order 32 bits of 
each word. The highest order 7 bits of the track number specify 
table address and the lower order 5 bits of the track number 
specify bit position in the word. 
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Alpha Files (Tape, Disk) - 

Alpha files are stored in packed display code for disk storage 
and magnetic tape storage. Each line of alphanumeric characters 
begins at the first byte of a central word and continues two characters 
per byte to the end of a line of code. The line of coding may be of 
any length. The last central word used in a line of coding is com- 
pleted with cleared bytes. A cleared byte is the end of line designation. 



Punched Card Formats - 

Alpha files - Hollerith code - 80 columns. 

Binary files - 15 words per card. 

- 1> 9 punch column one. 

- word count in column one row 0,1,2,3. 

- correction punch in column one row k. 

- check sum modulo ^+095 in column two. 

Record separator - 1,&,9 punch column one. 
File separator - 6,7,8,9 punch column one. 
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Resident Peripheral Program - 

This program is loaded in each peripheral processor on dead start 
and is not altered throughout execution of the system. The resident 
program occupies peripheral addresses 0100 thru 0771. Temporary 
storage addresses 0000 thru 0017 are used by the resident program. 
These locations may also be used by a called peripheral package as 
no continuity is required between executions of the resident program. 

Peripheral addresses 0075 thru 0077 are constants for a processor 
and should not be altered by a peripheral package. These addresses 
contain the following information. 

0075 processor input register address 

0076 processor output register address 

0077 processor message buffer address 

Peripheral Communication Areas - 

C entral storag e addresses 0060 th ru 0177 are used for peripheral 
processor communication. Each_pr ocessor lg_ asslgn gd a block o j^igfrt 
words. Format within a processor area is as follows. 

(one word) processor input register 
(on e word) processor outpu t register 
Xsix words) message buffer 

The processor input register is cleared when the processor is 
idling. The monitor processor enters a control word in the input 
register to call a transient peripheral package to the processor. 
The resident peripheral program senses the input register entry and 
searches the RPL (Resident Peripheral Library) for the peripheral 
package named in the input register. If the named package is not 
in the RPL the resident program then searches the PLD (Peripheral 
Library Directory) for the named package. When the package has been 
located the resident program reads the package into peripheral 
storage beginning at peripheral address 1000. The resident program 
then jumps to peripheral address 1000 to begin execution of the 

transient package. ii„ TTe 

Format for the input register control word is as follows. 

(18 bits) package name in display code 
(6 bits) control point number 
(36 bits) arguments 
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The processor output register is entered by a transient 
peripheral package to communicate with the peripheral monitor. 
The monitor continually scans the processor output registers and 
interprets the requests from the transient peripheral packages. 
The message buffer is used for those monitor requests in which 
the output register is not sufficiently large. The monitor pro- 
gram clears a processor output register when the requested 
function has been performed. 

The processor input register is not altered during the 
execution of a transient peripheral package. Upon completion 
of the transient package a request to the monitor clears the 
input register and the transient package exits to the resident 
peripheral program (address 100). 
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Monitor Calls From Peripheral Processors - 

The following control words are interpreted "by the monitor 
processor when entered in a peripheral o ut-put register. 

0001, 0000,0000,0000,0000 Dayfile message. 

The monitor enters a message in the dayfile consisting oi 
a time tac a 1ob tag, and the contents of the peripheral processor 
Lss^gebtfferf ^message buffer should contain one line in packed display 

code. 

0002, 00M, 0000, 0000, 0000 Request channel NN. 

Assign channel NN to the requesting processor as soon as the 

channel is available. 

000^. OONN, 0000, 0000, 0000 Drop channel NN. 

Release the assignment of channel NN from the requesting processor. 

OOOU, 0000, 0000, 0000,0000 Assign PP time. 

Update the pp running time at the control point for the re- 
questing processor. 

0005,0000,0000,0000,0000 Monitor step control 

Shift monitor control to step mode using central address 0014 

for control. 

0006, OONN, 0000, 0000, 0000 Request track. _ 

Request any unassigned track from track reservation table NN 
(10,11,12). If a track is available the track number is entered in 
the' first byte of the process message buffer. If a track is not 
available a cleared byte is returned. 

0007,OONN,TOTT,0000,0000 Drop track. 

Drop track TTTT from track reservation table NN (10,11,1*:; 

0010,NNNN, 0000, 0000, 0000 Request storage. 

Assign NNNN hundred octal words of central storage to the control 
point of the requesting processor. If a conflict exists the monitor 
may not assign the requested storage. The requesting processor must 
sense the control point status to verify the actual assignment, a 
pause function (17) should preceed further requests for storage. 

0011,0000,0000,0000,0000 Release PP. 

Release the peripheral processor from the control point. The 
monitor clears the processor input register before resuming this 
function. 
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0013,0000,0000,0000 Abort control point. 

Abort the job associated with the requesting processor. The 
dav"n S ^ r ° 0eSSOr iS res *°™^ *>r an explanatory message in the 
th^net^* " Cl6arS tte PP ^ -^ster before ref^ing^ 



0Qlk,TTIT, 0000, 0000, 0000 Time limit. 

Enter a job time limit at the associated control point TTTT 
increments of time. Each time increment is 8 seconds. 

0015,0000,0000,0000,0000 Request central processor. 

Set the central waiting flag (w) at the associated control ooint 
faearch for job priorities to initiate central processor action" " 

0016,0000,0000,0000,0000 Drop central processor. 
controTpoin" Pr ° CeSS ° r e * e ™tion for the job at the associated 

0017,0000,0000,0000,0000 Pause for relocation. 

the associftefiob ^Th^ ^ T ±tOT t0 raOVe CGntral Sto ^ d ^a for 
^t,f S I tt J requesting processor should check the reference 
adaress for the control point after resume from this function! referenCe 

-^0020,0000,0000,0000,0000 Request PP. 

This function requests the initiation of another peripheral 
processor The first word of the message buffer associated with 

new Pr™s ng fSnc°t" S ° r ^^ ** ^ ^ 1St ^ ^ ^ *he 
in the'first b^ or ?h 1S reS ™ ed J ±th «* PP input register address 
£?, TV i yte ° f tne messa e e buffer. If no PP is available a 

blank byte is returned. ^vanaoie a 

0021,0000,0000,0000,0000 Recall central processor. 

„ -i R T^t Tt the central Program associated with the requesting pp 
only if the central recall flag (x) is set. requesting PP 

0022,Ni™,0000,0000,0000 Request equipment 

and ass^f + m! equipment status table for an equipment of type mm 

0023, 00M, 0000, 0000, 0000 Drop equipment. 

Drop equipment number NN from the associated control point. 

O02if,00NN,0000,O000,0000 Request priority. 

Assign priority number M to the control point. 
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0025. 000N, 0000,0000,0000 Error exit mode. „<„+«,, 

Assign exit mode N to the central program at the associated 

control point. 

0027.0000,0000,0000,0000 Toggle simulator. 

TosKle the status of the central processor and simulator. The 
simulator is called from the peripheral library or dropped as required 

0030, 000N, 0000,0000,0000 Operator drop. 

Drop the Job at control point N by setting the operator drop 

error flag. 

0031, 00M, 0000,0000,0000 Equipment on. 

Clear the lockout bit for equipment NU in the equipment status 

table . 

0032, OONN, 0000,0000,0000 Equipment off. 

Set the lockout bit for equipment NN in the equipment status 

table • 

0033, 00NN,000P, 0000, 0000 Assign equipment. 

Assign equipment number NN to control point P and enter the 
number NN in the control point area for operator assignment. 



16 



Peripheral Program Formats - 

Binary versions of peripheral programs contain data in the first 
word of the program code which controls loading of the package. All 
peripheral packages in the RPL (Resident Peripheral Library) and PLD 
(Peripheral Library Directory) are overlays which are called by the 
resident peripheral programs. These overlays are called once and 
executed and then discarded when the next overlay is called. All 
overlays are coded for a particular beginning address in peripheral 
storage. Overlays which begin at address 1000 in peripheral storage 
are the basic transient peripheral packages. These transient packages 
may call equipment driver overlays which begin at peripheral address 
2000. The various types of peripheral overlays are identified by 
name only in the calling formats. Those basic transient packages 
which may be called by a central program are assigned names beginning 
with a letter. Those packages which are equipment driver overlays 
or are special operating system packages are assigned names beginning 
with a numeral. & 

The first word of a peripheral package contains the following 
information. 

(18 bits) Package name in display code. 

(30 bits) Not used. 

(12 bits) Package length in central words. 
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Resident Peripheral Library - 

The following peripheral overlays are stored in the resident 
peripheral library. 

3AJ - Advance Job. 

1BJ - Begin Job. 

ID J - Phase three print. 



1LJ - Phase one card load. 

2BD - Backspace disk. 

2BP - Buffer parameters. 

2BT - Backspace tape . 

2DF - Drop file. 

2DT - Drop tracks . 

2EF - Error flag. 

2LP - Line printer 

2RC - Read cards. 

2RD - Read disk. 

2RT - Read tape. 

2SD - Search dayfile. 

2TJ - Translate job card. 

2TS - Translate statement. 

2WD - Write disk. 

2WT - Write tape. 
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CIO - Circular I/O. 

CLL - Call library. 

EXU - Execute. 

MSG - Message for dayfile. 

Peripheral Library Directory *■■ 

The following peripheral overlays are listed in the peripheral 
library directory. 
1LT - Phase one tape load. 
1TD_- Phase three tape dump. 
2PC - Punch cards. 
DMP - Dump storage. 
LBC - Load binary cards . 
LOC - Load octal cards . 
PBC - Punch binary cards. 
DIS - Display job. 
SIM - CPU simulator 
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DSD - System Display - Channel 10 

This package is loaded in processor 9 on dead start and remains 
there unaltered throughout execution of the system. This package 
provides an overall status display for all currently running jobs. 
The keyboard is used to initiate and control equipment assignment 
and job progress . 

The two console screens may be assigned any combination of two 
of the following displays. 

A - dayfile 
B - job status 

C - data storage (5 groups of k octal digits) 
D - data storage (5 groups of k octal digits) 
E - data storage (5 groups of k octal digits) 
F - program storage (k groups of 5 octal digits ) 
G - program storage {h groups of 5 octal digits ) 
H - job backlog 

As an example, the following keyboard entry would select H 
display on the left screen and B display on the right screen. 

HB. 

The storage displays C through G consist of k fields of 6 words 
each. The fields are designated 0,1,2,3 and may be individually 
changed to any word group of central storage. The following 
keyboard entry would change the D display, field 2, to display central 
storage addresses 001020 through 001027 . 

D2, 1020. 

If DU,1020 were used in the above example the D display would 
be changed to h consecutive fields beginning with address 001020. 

Any word in central storage may be modified from this console. 
An entry in central storage is made in the following format. 

1022, 2100 1000 0000 0111 23^7. 

Spacing is not important. Leading zeros may be dropped in both 
address and data word. All entries are octal and the digits are 
right adjusted. 
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AUTO. 

This keyboard entry may be used after a dead start from the 
system tape to select a mode for automatic job processing. This 
mode assumes job inputs from punched cards and printer output. 

STEP. 

This keyboard entry selects a step mode for the operating 
system monitor. Each processor request is stepped by depressing 
the keyboard space bar. High speed operation may be resumed by 
entering a period on the keyboard. 

SIM. 

This keyboard entry calls a central processor simulator 
package from the disk file library to a peripheral processor. 
Subsequent system operation is with a simulated central processor. 
The simulator may be dropped by repeating the keyboard entry SIM. 
Repeated entries will toggle the system between simulated and 
real central processor. 

0N42. 

This keyboard entry is an example of format for designating 
to the operating system that a particular equipment is working 
and ready for automatic monitor assignment to any job requesting 
this type of equipment. The equipment is designated by a two 
digit octal number corresponding to the position of the equipment 
in the equipment status table. 

0FF42 . 

This keyboard entry is an example of format for removing 
a particular equipment from automatic monitor assignment. The 
equipment is designated by a two octal digit number corresponding 
to the position of the equipment in the equipment status table. 

TIME. 12.10.03, March 12, 1965. 

This keyboard entry permits the operator to enter the correct 
time and date. 
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1. READ. 



This keyboard entry is an example of format for selecting a 
punched card job input package. The leading digit designates 
which control point is to be used for the input package. Jobs 
are read from punched cards as long as cards are entered in the 
card reader. All job data is stored in disk files, and the jobs 
are executed according to the priorities on the job cards. 



2. PRINT. 



This keyboard entry is an example of format for selecting a 
printer output package. The leading digit designates which con- 
trol point is to be used for the print package. Job output files 
are printed in the order of job priorities. 

3. NEXT. 

This keyboard entry is an example of format for selecting a 
control point, as designated by the leading digit, to process job 
executions. Jobs are called one at a time in order of priority. 

4. GO. 

This keyboard entry is an example of format for restarting a 
job which has come to a pause statement. The leading digit must 
correspond to the control point with the pause statement displayed. 

4. DIS. 

This keyboard entry is an example of format for calling a 
job display package (DIS) to a control point as designated by the 
leading octal digit. 

4. DROP. 

This format drops the job at the designated control point. 

4. ASSIGN 53. 

This format assigns a particular equipment (53) to a par- 
ticular control point (4). This method of equipment assignment 
should be used only when the job is waiting for the equipment 
assignment as indicated by a REQUEST statement display. 
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7. LOAD. 

This keyboard entry selects a magnetic tape job loader package 
at the designated control point. The package will request operator 
assignment of a specific tape unit. The tape read on this unit 
must have input jobs stacked to a double file mark. Such a tape 
may "be prepared by copying card to tape with the library program COPY. 

5 . DUMP . 

This keyboard entry selects a magnetic tape dump package at the 
designated control point. The package will request operator assign- 
ment of a specific tape unit. The current backlog of completed 
output files will be dumped on this tape in the order of job priority. 
A file mark will be. recorded and the tape backspaced to allow repeated 
dumps on the same tape. The tape may then be listed off line with 
a tape to printer program. 

h. 0NSW2. 

This keyboard format allows setting of the six sense switches 
for Fortran programs during execution. 

h. OFFSWlu 

This keyboard format allows clearing of the six sense switches 
for Fortran programs during execution. 

5. DCN11. 

This format allows the operator to manually disconnect any I/O 
channel. The channel number is octal. 

5. FCN10. 

This format allows the operator to manually enter a zero function 
on any I/O channel. The channel number is octal. 
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DIS - Job Display 

This package may be called at any time during the execution of 
a job. This package, when called, stops further automatic advance 
of the job control cards. The display provided in this package 
covers only data pertaining to the particular job. The keyboard is 
used to advance the job control cards and provide any combination 
of two of the following displays. 

A - dayfile 

B - job status 

C - data storage (5 groups of 4 octal digits) 

D - data storage (5 groups of 4 octal digits) 

E - data storage (5 groups of 4 octal digits) 

F - program storage (4 groups of 5 octal digits) 

G - program storage (4 groups of 5 octal digits) 

As an example, the following keyboard entry would select A display 
on the left screen and B display on the right screen. 

AB. 

The storage displays C through G consist of 4 fields of 8 words 
each. The fields are designated 0,1,2,3 and may be individually 
changed to any 8 word group of central storage. The following 
keyboard entry would change the D display field 2 to display central 
storage addresses 001020 through 001027. 

D2, 1020. 

If D4, 1020 were used in the above example the D display would 
be changed to 4 consecutive fields beginning with address 001020. 

Any word in central storage which lies within the field length 
of this job may be modified from this console. All addresses are 
relative to the job reference address. An entry in central storage 
is made in the following format. 

1022, 2300 7775 1143 0000 0022. 

Spacing is not important. Leading zeros may be dropped in both 
address and data word. All entries are octal and the digits are 
right adjusted. 
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The following keyboard entry formats may be used to alter the 
contents of the exchange package for the job displayed. If the 
program is running the operation will stop before the entry is made. 
The numerical values in the examples below are for illustrating 
format only. 

ENP, 123^5 • 

Enter the value 123^5 in the exchange package for the next 
program address. 

EN&3, 665OOO. 

Enter the value 665OOO in the exchange package for the A3 register , 
ENB2, kk. 

Enter the value hk in the exchange package for the B2 register. 

EHX5, 2223 ^000 0000 0000 0200. 

Enter the indicated value in the exchange package for the X5 
register. 

ENEM, 7» 

Enter the value 7 in the exchange package for the exit mode. 
ENFL, 10000. 

Enter a field length of 10000 for the exchange package. 

0NSW3 . 

This keyboard format allows the operator to set a Fortran 
sense switch during execution. 

0FFSW5. 

This keyboard format allows the operator to clear a Fortran 
sense switch during execution. 
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The following keyboard entry formats may be used to change 
the status of a job. The numberical values are for illustration 
of format only. 

ENTL, 200. 

Enter a time limit of 200 octal seconds. 

ENPR, 5- 

Enter a job priority of 5. 

DCP. 

Drop the central processor and display the exchange area. 

RCP. 

Request the central processor and begin execution at the next 
program address . 

BKP, 4^300. 

Breakpoint to address lj-^300 in the program. This entry begins 
central processor execution of the program at the next program address 
and stops execution when the program register reaches address M+300. 
The contents of address UU300 is cleared while the program is running 
and is restored when the break point address is reached. 

RNS. 

Read the next control statement and begin execution. 

RSS. 

Read the next control statement and stop before execution. 

DROP. 

Drop the display package and continue execution of the remaining 
control statements. 

HOLD. 

Drop the display for later recall by the system display console. 
This entry holds the job at its present status. 
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GO. 

This keyboard entry restarts a program that has stopped at a 
pause statement. 

ENS. XXXXXXXXXXXXXX. 

This keyboard format allows the entry of any control statement 
XXXXXXXXXXXXXX as if it had been entered on a control card. 

DMP (200,330) 

This format dumps storage addresses 200 to 330 in the output 
file. 

DMP (400) 

This format dumps storage from the reference address to address 400. 

DMP. 

This format dumps the exchange package in the output file. 
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CIO Circular Buffer I/O Package 



Interface with central program - 

This peripheral package is called by entering CIO in display code 
left adjusted in RA + 1. The lowest order 18 bits of RA + 1 contain 
the relative storage address (BA) of the circular buffer parameters. 
These parameters occupy five central words beginning at BA. 



BA. 



(42 bits 
(12 bits 
( 6 bits 



BA + 1. (42 bits 
(18 bits 

BA + 2. (42 bits 
(18 bits 

BA + 3. (42 bits 
(18 bits 

BA + 4. (42 bits 
(18 bits 



File name in display code left adjusted, 
not used, 
buffer status. 

not used. 

FIRST. First address of circular buffer. 

not used. 

IN. Next buffer input address. 

not used. 

OUT. Next buffer output address. 

not used. 

LIMIT. Last buffer address + 1. 



If IN - OUT the buffer is empty. Maximum buffer capacity is 
LIMIT - FIRST - 1. IN and OUT may equal FIRST but may not equal LIMIT. 

The six bit buffer status indicates the mode of the buffer and 
provides an interlock for peripheral package activity. The buffer 
status has an even numerical value when CIO is called. The buffer 
status is set to an odd value when the peripheral package has completed 
the I/O function. Specific status indicators may be obtained by 
combining the octal digits in the table below. 

request coded read 
complete coded read 
request binary read 
complete binary read 
request coded write 
complete coded write 
request binary write 
complete binary write 



OX 


not used 


XO 


IX 


buffer I/O 


XI 


2X 


end record 


X2 


3X 


file mark 


X3 


4X 


backspace 


X4 


5X 


rewind 


X5 


6X 


rewind unload 


X6 


7X 


not used 


X7 
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CIO treatment of status codes 

(1) Input (001,0X0) 

File is read into circular buffer until buffer is filled (001,0X1) 
or until end record (010,0X1) or file mark (011,0X1). The mode bit 
in this function request is ignored and mode is determined by the input 
medium. A file mark response should never occur with data. 

(2) Output (001,1X0) 

Data in circular buffer is recorded on file for as many complete 
physical records as available data. No partial end record is made. 
(001,1X1). 

(3) End Record (010,1X0) 

Data in circular buffer is recorded on file including a short 
physical record to mark end of logical record. The last physical 
record may be of zero length. IN ■ OUT - FIRST. (010,1X1) 

(4) File Mark (011,1X0) 

(a) Data in circular buffer; or 

(b) Last buffer status (001, 1XX) 

Data in circular buffer is recorded on file including a short 
physical record to mark end of logical record. Then a file mark is 
recorded. IN - OUT - FIRST. (011,1X1) 

(c) All others 

A file mark is recorded. IN * OUT '■ FIRST. (011,1X1) 

(5) Backspace Binary (100, X10) 

Back file to end of last record. A file mark is considered as 
a record in this case. IN ■ OUT * FIRST. (100,011) 

(6) Backspace Coded (100, X00) 

Back file one coded line. A file mark is considered as a coded 
line in this case. The last physical record will be left in the 
buffer beginning at FIRST. IN and OUT will be adjusted for a one line 
backspace. (100,001) 

(7) Rewind (101,XX0) 

Rewind the file. IN = OUT - FIRST. (101,0X1) 

(8) Rewind Unload (110, XX0) 

Rewind and unload the file. IN - OUT - FIRST. (110,0X1) 
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CIO special properties. 

(1) The central program must complete writing a record before 
requesting a backspace, rewind, or mode change. 

(2) The central program need not complete writing a record before 
requesting a file mark. 

(3) The central program must complete reading a record before 
beginning output data to the buffer. 

(h) Binary tapes and coded one inch tapes record 1000 octal word 
physical records in odd parity. No special control words are 
added. A zero length physical record is generated by recording 
a partial word (h bytes). Coded one inch tapes use packed display 
code with short word separators. 

(5) Coded half inch tapes record 120 character BCD code in even 
parity. 

(6) A one inch tape with mixed binary and coded records presents 
problems if a backspace is used to cross a mode boundary. 

(7) A problem exists in mode change from coded input to output 
on one inch tape if the file is positioned between two lines of 
code. No problem exists if the file is positioned before or 
after a file mark. No problem exists in mode change on binary 
files . 

(8) A disk file connot be substituted for a tape file if the file 
has multiple file marks or has data recorded after a file mark. 
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DMP - Dump Storage. 

This peripheral package may be called from a control card or 
from a DIS console. An octal dump is entered in the OUTPUT file 
with the central storage address and one data vord per line. There 
are several format variations for calling this package. 

DMP . 

This format dumps the exchange area into the OUTPUT file. 
DMP, 3^00. 

This format dumps from the reference address to the argument 
address . 

DMP (^i 000, 6 000) 

This format dumps from the first argument address to the 
second argument address . 
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LBC - Load Binary Corrections. 

This peripheral package may be called from a control card or 
from a DIS console. Binary corrections are read from the INPUT 
file and are entered in central storage. If an argument is used 
in the package call, the binary cards are loaded beginning with 
that address. If no argument is used, the binary cards are loaded 
beginning at the reference address. Only one record is read from 
the INPUT file. If more than one block of data is to be entered 
more calls must be made. 

The two types of format for this package call are as follows. 

LBC. 

LBC, 2300. 
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LOC - Load Octal Corrections. 

This peripheral package may he called from a control card or 
from a DIS console. Octal corrections are read from the INPUT file 
and are entered in central storage. The octal cards which are used 
for these corrections must he in the following format. 

23001 U5020 0^000 000^2 000^ 

The address must hegin in column one. Leading zeros may be dropped 
in the address. The data word must not begin before column 7. Spacing 
in the data word is not important but the word must contain 20 digits. 

Several formats are allowed in making this package call. The 
simplest is the following. 

LOC. 

This call reads all of the correction cards in the next INPUT file 
record and modifes central storage accordingly. 

LOC, 1000. 

This call clears central storage from the reference address to 
the argument address. The correction cards are then read from the 
INPUT file. 

LOC (2022, 3^5) 

This call clears central storage from the first argument address 
to the second argument address. The correction cards are then read 
from the INPUT file. 

This package may be called to clear storage only by providing an 
empty record in the INPUT file. 
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PBC - Punch Binary Cards. 

This peripheral package may be called from a control card or 
from a DIS console. This package punches a deck of binary cards 
directly from central storage. Storage is not modified by this 
operation. 

Several formats may be used in calling this peripheral package. 

PBC, 2000. 

This format causes a binary deck to be punched from the reference 
address to the argument address . 

PBC (2000, 3000) 

This format punches a binary deck from the first argument address 
to the second argument address. 

PBC. 

This format punches a binary deck using the first word in central 
storage as a control word for deck length. The deck always begins 
at the reference address and terminates one address less than that 
indicated in the lower 18 bits of the first word. This format may 
be used for punching any central or peripheral program in standard 
format . 
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CLL - Call Central Overlay 

This peripheral package calls one or more central overlays to 
addresses supplied by the calling program. The lowest order l8 
bits of the call word in RA + 1 contain the storage address (BA) 
for arguments. The first two words in the argument region contain 
beginning and limit addresses for the overlays as a group. A list 
of the overlay names begins in BA+2 and continues to a cleared 
word • 



BA.. 


(k2 bits) 
(18 bits) 


BA+1. 


(^2 bits) 
(18 bits) 


BA + 2. 


(k2 bits) 
(18 bits ) 


BA + 3. 


(k2 bits) 
(18 bits) 



not used. 

beginning address for first overlay. 

not used. 

limit address for group of overlays. 

name of first overlay in display code, 
beginning address of overlay (inserted by CLL) 

name of second overlay in display code, 
beginning address of overlay (inserted by CLL) 



etc. 

CLL searches for the overlays in the order named first in the 
Resident Subroutine Library (RSL), then in the Central Library 
Directory (CLD), and then in the assigned job files. As a named 
overlay is located it is copied into central storage at the next 
available address. This address is then entered into the argument 
region with the name of the overlay. If an overlay cannot be 
located the address is left blank in the argument region. If an 
overlay exceeds the limit address a 777777 i s entered as the argument 
address. The last overlay is followed by a cleared word. CLL then 
clears (BA) to indicate completion of the call. 
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EXU - Call and Execute. 

This peripheral package is called by entering EXU in display 
code left adjusted in RA + 1. The lowest order 18 bits of the call 
word indicates the central storage address for the argument. The 
argument consists of the name of a central program to be called and 
executed. This call destroys the calling program and completely 
replaces it with the called program. 



MSG - Dayfile Message. 

This peripheral package is called by entering MSG in display 
code left adjusted in RA + 1. The lowest order 18 bits of the call 
word indicates the central storage address for the argument. The 
argument consists of a sequence of words in display code which are 
to be entered in the dayfile. The time and job name are automatically 
inserted before the argument data. The data is terminated by a 
cleared byte. 
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Job Control Cards - 

A job consists of one or more central programs which are executed 
with common data files. Job control cards are used to identify the 
programs and data files and sequence the program executions . 

Each job must begin with a job card. This card names the job 
and provides priority, time limit, and field length information for 
the job. An example of a job card is as follows. 

J0B237, 6, Uoo, 27000. 

In this example the job name is JOB237. Priority is 6. Time 
limit is 400 octal seconds . Field length is 27OOO octal words . 
Spaces are not important in the job card format except that the job 
name must begin in column one. The job name must begin with a letter 
and may have up to 7 characters. The priority is a. single decimal 
digit. A higher priority is represented by a larger number. The 
time limit may consist of up to 5 octal digits. The octal value in 
hundreds is approximately the time in minutes. The field length 
must be in hundreds and cannot exceed 360,000. 

The rest of the job control cards must follow the job card in 
the order of execution. A record separator follows the last job 
control card. Program and data cards then follow in the order of 
input requests . 

File Names - 

All input and output actions of a central program must involve 
a named file. This file may be a disk file, a magnetic tape file, 
a punched card file, or a printer output file. The physical unit 
associated with a file name is controlled by the job control cards 
and is not a function of the central program coding directly. The 
operating system provides a common interface between the central 
program and the peripheral programs which drive the peripheral 
equipments. 

File names must begin with a letter and may have up to 7 characters 
There are two special names which are implied with each job. These 
names are INPUT and OUTPUT. The name INPUT refers to the file from 
which the job cards were read. This file is the result of loading 
the card deck for the job. The name OUTPUT refers to the file which 
ends in printed copy at the end of the job. These two names must 
be avoided in assigning names to temporary files and other I/O files. 
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Program Calls - 

A program is called from a file or the program library "by a control 
card in the following format. 

S0RT(T1, T2, XLF) 

In this example the name of the program is SORT. This program 
may have been loaded from a file specifically associated with this 
job, or it may have been compiled from a fortran deck in the input 
file, or it may be in the general program library. All files associated 
with the job are searched for this particular name. If no job file 
has this name the program library is searched for a program of this 
name. When the program has been located it is read into central core 
storage. The arguments within the parenthesis are then entered in 
the program beginning at address 000002. These arguments are names 
for other files associated with the job and are entered in the fore- 
part of the program in display code left adjusted in each word. The 
number of arguments must agree with number provided in the program. 
The execution of the program is initiated at a program address specified 
in the forepart of the program. (see program format) 

If a file name appears for the first time as the argument in a 
program call it is assumed to be a disk file and is assigned to disk 
storage at that time. 

Special Control Card. Formats - 

The following control card formats are recognized as special 
cases and must not be used for the names of programs . 

ASSIGN MT, AFILE. MT~«-f 

a? 

This format assigns any available peripheral unit of type MT to <iA> 
a file name AFILE. This must be the first appearance of AFILE. 

COMMON BFILE. 

This format causes a search for the name BFILE in the list of 
common files. If a common file is located with this name, and if the 
file is not being used by another job, it is assigned to this job 
until dropped. If the file is being used by another job or does not 
yet appear in the list of common files, this job must wait until the 
file is available. 

If BFILE already appears as a local file name for the job, this 
format transfers that file to common status and is available to other 
jobs when dropped by this job. 
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RELEASE BFILE. 

This format causes a common file named BFILE currently assigned 
to this job to "be dropped from common status. 

REQUEST CFILE. 

This format requests the operator at the system display console 
to assign a specific peripheral equipment to this job with the name 
CFILE. This must be the first appearance of the name CFILE. The 
job waits for operator action before proceeding. 

MODE 3- 

This format assigns arithmetic exit mode 3 to the job until 
further specification. 

SWITCH 5. 

This format sets switch 5 for reference by subsequent FORTRAN 
programs . 

EXIT. 

This format is used to separate the control cards associated with 
the normal execution of the job from a group of control cards to be 
executed in the event of an error exit. If this control statement is 
reached by sequential execution of the job it terminates the job. If 
an error exit occurs in the job before this EXIT card is reached, the 
control statements following this card are executed. 
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Sample Job - 

The following job cards are an example of a Fortran load and 
run job with READ and PRINT statements. The job has a priority 
of 2, a time limit of one minute, and a field length of U0000 octal 
words. A Fortran program deck may be declared in either a FORTRAN II 
or FORTRAN IV mode. The mode is declared in the header card for the 
main program along with the name and I/O file arguments. 

JOB236, 2, 100, 40000. 

RUN. 

789 

FORTRAN IV PROGRAM JOHN (INPUT, OUTPUT) 

(Fortran program coding) 

789 

(Fortran data) 

6789 



Sample job - 

The following job illustrates a Fortran load and run job with 
three tape references. The Fortran language TAPE 1 in this example 
is assumed to be an input tape which the operator loads on a particular 
unit. The other two tapes are assumed to be scratch tapes which are 
draw from a tape pool. 

JOB237, 2, ^00, 60000. 

ASSIGN WT, TAPE 5. 

ASSIGN WT. TAPE 6. 

REQUEST TAPE 1. 

RUN. 

789 

FORTRAN II PROGRAM HENRY (INPUT, OUTPUT, TAPE1,TAPE5,TAPE6 ) 

(Fortran program coding) 

789 

(Fortran data) 

6789 
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Monitor Action on Central Programs - 

The monitor will act upon a central program in the following 
cases. 

Higher Priority. 

If a higher priority program is ready for execution the current 
program exchanges in favor of the new program. 

Arithmetic Exit. 

The monitor exchanges to the next lower priority program whenever 
the central program address becomes zero. An arithmetic exit mode 
flag is set for this case. 

Time Limit. 

The monitor exchanges to the next lower priority program if the 
time limit is reached. A time limit flag is set in this case. 



Call Peripheral. 

A central program calls a peripheral package by entering the 
package name in display code in the upper 18 bits of RA + 1. The 
lower 36 bits may contain arguments for the peripheral package. 
The monitor clears address RA + 1 as soon as the peripheral package 
is called. 



Recall. 

A central program may stop for later recall by entering RCL in 
RA + 1 and looping until RA + 1 clears. The monitor will exchange 
to the next lower priority program and restart this program at a 
later time (about 250 milliseconds). If the central program has 
called a peripheral package for I/O action this package may restart 
the central program when the action is completed. 

Abort. 

A central program may abort the job by entering ABT in RA + 1. 
This action sets an abort exit flag. 

End. 

A program is terminated by entering END in RA + 1. The monitor 
then calls a peripheral package to advance the job to the next control 
statement. 
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Central Program Formats - 

Binary versions of central programs contain data in the fore- 
part of the program code which controls loading and starting of the 
program. This data is contained in the first two words of the 
program code. These words are interpreted by the loading processor 
and then cleared before beginning execution. 

Central program arguments begin in address 000002 of a central 
program. The arguments are file names which are in display code 
left adjusted in the word. A set of file names are generally stored 
in the argument area of a program at the time it is compiled. If 
arguments are used in a control card at the time the program is 
called for execution, these arguments are inserted in the program 
in the argument area and override the original values . If no argu- 
ments are used, or if fewer than anticipated arguments are used, 
the original argument values are effective at run time . The list 
of argument names at the front of the program must be followed by 
a cleared word. The first word of program for execution follows 
this cleared word. 

The first word of a binary central program contains the 
following information. 

(42 bits) Program name in display code. 
(l8 bits) Program length. 

The second word of a binary central program contains the 
following information. 

(5^ bits) Not used. ••*§ 

( 6 bits ) Number of arguments . 

Execution of a central program begins at an address equal to the 
number of arguments plus 3« 
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Resident Subroutine Library - 

The following central program subroutines are stored in the 
resident subroutine library. 



ALOG Computes the natural logarithm of a floating point number. 
The result for a negative argument is indefinite. 

ALOG10 Computes the common logarithm of a floating point number. 
The result for a negative argument is indefinite. 

ATAN Computes the arctangent of a floating point number. 

COS Calculates the cosine of a floating point number. 

DVCHK Divide and check. 

END Causes end of file on all circular buffers for the program. 

EXIT Terminates a program similar to END. The word EXIT is entered 
in the dayfile. 

EXP Calculates the floating point function E * * X. - 

IBAIEX Computes I * * J where both I and J are fixed point. 

IFENDF Checks the status of a circular buffer for an end of file 
condition. IN = OUT and 3X function. 

OVERFL Result is set to one if overflow exits and two if no overflow. 

PAUSE Loop on recall until operator action. Word PAUSE entered in 
the dayfile. 

RBAIEX Computes A * * I where A is floating point and I is fixed point. 

RBAREX Computes A * * B where both A and B are floating point. 

REMARK Transmits a message to the system dayfile and displays it on the 
console display. 

Example: CALL REMARK (22H REMARKS HERE IN ENTRY). 

22H indicates 22 Hollerith characters in the remarks 
(maximum of 40). ■ < ■• 

SIN Computes the sine of -the* argument . 

SQRT Computes the square root of the argument. A negative argument 
results in an indefinite result. 

SLITE Sense lights. Turn off if zero. Turn on if non zero. 

SLITET Respond with one if light was on, two if light was off. Turn off 
light. 
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SSWTCH Respond with one if switch is down, two if switch is up. 

START Enter START in dayfile. 

STOP Enter STOP in dayfile and perform same function as END. 

TAN Compute the tangent of the argument. 

TANH Compute the hyperbolic tangent of the argument. 

TIME Enter the word TIME and hollerith information in the dayfile, 
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Library Subroutine Calling Sequences 



Arithmetic subroutines in the Resident Subroutine Library may be called by 
the following calling sequences. 



I. 



ALOG 
AL0G10 

ATAN 



COS 
SIN 
EXP 



SQRT 

TAN 

TANH 



Each of the above subroutines is entered with the address of its single 
argument in the Bl register and exits with its result in the X6 register. 
All registers except AO are available and need not be saved. 



Program 
Address 

CSEQ 



I - BB 

R = SIN 
Y « (AA) 



Example 

AA = SIN(BB) 



6110B 

0100 SIN 
506.. 



Put address of argument 
in Bl 

Return Jump to SIN subroutine 

Store answer from X6 to 
memory 



Continuation of main program 



SIN-3 
SIN-2 
SIN-1 
SIN 



00... 



Subroutine name and length 
Number of arguments 

Entry/ Exit Address 



P » SIN 



02. .SIN 



Jump to Entry/Exit Address 
of Subroutine for return 
to main program 
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II. The subroutines IBAIEX, RBAIEX, and RBAREX require two arguments. 
X registers 6 and 7 are used for transmitting the arguments, X6 for the 
base and X7 for the exponent. These subroutines save and restore all 
index registers used. The result is left in X6. 



Example 

AA = BB**CC 



Program 
Address 



CSE q y ■ BB 6170 BB Set X6 to desired base 

1 = cc 6160 CC Set X7 to desired exponent 

R = RBAREX 0100 RBAREX Return Jump to RBAREX 

subroutine 

G = AA 5160 AA Store result at AA 



Continuation of main program 



RBAREX 



00 Entry/Exit 



P = RBAREX 02... Jump to Entry/Exit address 

for return to main program 

III. The BACKSP, REWINM, ENDFIL, and IFENDF subroutines receive a single 
argument via the X6 register and do not use index registers. The calling 
sequence must place in X6 either: 

A. The address of the parameter list describing the circular buffer 
to be referenced, or 

B. The complement of the address of the file name or variable tape 
number. File names are left justified and tape numbers are binary 
and right justified. 

If the address of the parameter list is known at the time the calling 
program is compiled, the calling sequence may place this address in X6 
before jumping to the subroutine. 

If the address of the parameter list is not known at compile time, the 
calling sequence must, place in X6 the complement of the address of the 
tape number or file name. When the subroutine senses that X6 holds a 
complemented address «0), it determines whether the word at that address 
is a file name or tape number and, if necessary, forms a file name by 
inserting TAPE in display code in front of the tape number (also converted 
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to display code). When the proper file name has been obtained, a 
masked search is made starting at address 000002 of the program. The 
address of the parameter list is found in the lower 18 bits of the match. 

Example 
REWINM 6 

When address of parameter list is known: 



Program 
Address 

CSEQ 



Y = PLIST 



7160 PLIST 



Set X6 to address of 
parameter list 



R = REWINM 



01... 



Return Jump to REWINM 
subroutine 



Continuation of main program 



REWINM 



00 



Entry /Exit 



P ■ REWINM 



0200 REWINM 



Jump to Entry/Exit 
address for return to 
main program 



PLIST 



TAPE6...SS 



File name in display 
code and buffer status 



FIRST 
IN 
OUT 
LIMIT 



First address of buffer 



Last address of buffer 
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When address of parameter list is unknown (variable tape number) : 



Set X6 to address of 
tape number 



Program 
Address 






CSEQ 


Y = TAPENO 


7160 TAPENO 




Y - -Y 


14606 




R - REWINM 


01 



Complement address in X6 

Return Jump to REWINM 
subroutine 



Continuation of main program 



REWINM 



00 



Entry/Exit 



P = REWINM 



02 REWINM 



Jump to Entry /Exit 
address for return to 
main program 



TAPENO 



0000.... 6 



Tape number (binary) 



RA + 2 
RA + 3 



File Name 1 
File Name 2 



RA + n 



TAPE 6 .. PLIST 



Matching file name and 
address of parameter list 



When address of parameter list is unknown (File name): 
CSEQ Y - FILENAME 



Y ■ -Y 

R = REWINM 



7160 FILENAME Set X6 to address of 

file name 



14606 
01... REWINM 



Complement address in X6 

Return Jump to REWINM 
subroutine 



FILE NAME TAPE6000..0 
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IV. The subroutines INPUTB, INPUTC, OUTPTB, AND OUTPTC assume that all 
registers are available. These subroutines receive arguments via the 
B registers and are entered at least three times for each data list 
transferred: 

On first entry Bl ■ 000000, B2 contains the address of the parameter 
list or the complement of the address of the file name or tape 
number, and B3 contains the address of the format statement (for 
the coded routines only) . 

On intermediate entries Bl contains the address of a data item or 
the beginning address of an array, and B2 is the array length. 

On final entry Bl < indicating that the data list has been exhausted. 

Example 

List the data in array AA and variable BB. 

Program 
Address 



CSEQ 



1 = 

J - PLIST 

K = FORMAT 

R=0UTPTC 



J = LENGTH 
R » OUTPTC 

I - BB 

J - 

R ■ OUTPTC 

I - -1 



61100 
61200 PLIST 

61300 FORMAT 

0100 OUTPTC 

61100 AA 

61200 LENGTH 

0100 OUTPTC 

6110 B 

61200 D 
0100 OUTPTC 
6110 -1 



Set Bl = 000000 

Set B2 to address of 
parameter list 

Set B3 to address of 
format statement 

Return Jump to OUTPTC 
subroutine 

Set Bl to beginning 
address of array AA 

Set B2 to length of 
array AA 

Return Jump to OUTPTC 
subroutine 

Set Bl to address of 
variable BB 

Set B2 to 000000 

Return Jump to OUTPTC 

Set B|< to indicate 

all data has been transferred 
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R = OUTPTC 0100 OUTPTC Return Jump to OUTPTC 

subroutine to send E.O.R. 



Continuation of main program 
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Central Library Fortran Subroutines - 

XLOCF Returns the memory location of a variable name. 

INPUTB Binary input. 

INPUTC Fortran data input. 

OUTPTB Binary output. 

OUTPTC Fortran data output. 

ENDFIL Write end of file. 

REWINM Rewind medium. 

BACKSP Backspace medium. 

DISPLA Displays a variable name and its numerical value. The value is 
displayed as an integer if unnormalized and in floating point 
format if normalized. 

Example: CALL DISPLA (5HVNAME, VNAME) 

Displays a variable with 5 Hollerith characters (VNAME) 
and its numerical value. 

RANF Random number generator. 

CHAIN Loads a program from the disk file and executes the program. 

Arguments transferred from one program to another must be in the 
common region. All segments to be chained must be compiled with 
the same file names. The segment name is transferred to the 
dayfile and displayed prior to execution. 

Example: CALL CHAIN (5HLINK2) calls and executes program LINK2. 
5H indicates 5 Hollerith characters in the name. 
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Central Library Programs - 

RUN - Compile and run fortran. 

COPY - Copy to double file mark. 

COPYCR - Copy coded record. 

COPYCF - Copy coded file. 

COPYBR - Copy binary record* 

COPYBF - Copy binary file. 

REWIND - Rewind medium. 

VERIFY - Verify two media. 

APRAB - Assemble peripheral overlay. 

COPYSBF - Copy shifted binary file. 
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COPYCR(A,B,n) - Copy Coded Record 

This central program copies N coded records from a medium A 
to a medium B. If the third argument iB omitted one record is 
copied. 



COPYCF(A,B,N) - Copy Coded File. 

This central program copies N coded files from a medium A to 
a medium B. If the third argument is omitted one file is copied. 



COPYBR(A,B,N ) - Copy Binary Record. 

This central program copies N binary records from a medium A 
to a medium B. If the third argument is omitted one record is 
copied. 



COPYBF(A,B,N) - Copy Binary File. 

This central program copies N binary files from a medium A to 
a medium B. If the third argument is omitted one file is copied. 



COPTflSBF(A,B) - Copy Shifted Binary File. 

This central program copies a binary file of coded information 
from a medium A to a medium B, shifting each line one character 
and adding a leading space. 
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REWIND (A) - Rewind Medium. 

This central program rewinds a tape or disk medium. 

BKSP(A) - Backspace Medium. 

This central program backspaces a tape or disk medium. 



VERIFY(A,B) - Verify Two Media. 

This central program reads two files and compares the data 
word by word to a file mark. If a disagreement is found the 
program stops. The word from the first file is contained in XI 
and the word from the second file in X2. The program may be 
resumed by advancing the program address and restarting. 



COPY(A,B) - Copy to double file mark. 

This central program copies from one medium to another until 
a double file mark is detected. Both media are then backspaced 
over the last file mark. 
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FORTRAN COMPILER ARGUMENTS 

The Fortran compiler, RUN, may be called with up to six 
arguments. An example appears below, and the arguments are 
identified in the order of appearance: 

RUN(L, 300000, 100000, 3000, AA, BB) 

(1) Compiler mode, 

G - Compile and execute. 

S - Compile and do not execute. 

P - Compile and punch and do not execute. 

L - Compile and list and do not execute. 

(2) Object program field length. (octal) 

(3) Object program common length. (octal) 

(4) Object program I/O buffer lengths. (octal) 

(5) File name for compiler input. 

(6) File name for compiler listable output. 

If an argument is entered as zero, or a space, or the list of 
arguments is shorter than six, an assumed argument is entered by 
the compiler. Compiler output, except in the G mode, includes a 
reproduction of the source program, a variable map, and indications 
of errors detected during compilation. If the G mode is selected, 
all output is suppressed unless errors are detected, in which case 
the output is the same as indicated for the other modes. If the 
L mode is selected, the output will include an octal list of the 
compiled instructions. 

(1) If the first argument is omitted it is assumed to be G. 

(2) If the second argument is omitted it is set equal to the field 
length at compile time. 

(3) If the third argument is omitted it is set equal to the amount 
of common storage required for the main program being compiled. 

(4) The fourth argument specifies the length of the buffers which 
will be used for each 1/0 device in the object program. If not 
specified this argument is assumed to be 2001 octal. 

(5) If this argument is omitted it is assumed to be INPUT. 

(6) If this argument is omitted it is assumed to be OUTPUT. 

A copy of the compiled program is always left in disk storage 
as a binary file with the name of the program as file name. It 
may be called and executed repeatedly by name. 
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FORTRAN PROGRAM HEADER CARDS 

Every Fortran program must have a header card in one of the following 
forms : 

PROGRAM NAME (Al, ... , AN) 

FORTRANIV PROGRAM NAME (Al, ... , AN) 

FORTRANII PROGRAM NAME (Al, ... , AN) 

The first two forms cause the program and its subroutines to be 
compiled in the FORTRAN IV mode. The third form causes compiling 
in the FORTRAN II mode. 

The arguments Al, ... , AN must be the names of all input/output 
files required by the main program and its subroutines . Although 
these arguments may be changed at the time the program is executed, 
they must, at 'compile time, satisfy the following conditions: 

1. The file name INPUT must appear if any READ statement 
is included in the program or its subroutines. 

2. The file name OUTPUT must appear if any PRINT state- 
ment is included in the program or its subroutines. 

3. The file name PUNCH must appear if any PUNCH state- 
ment is included in the program or its subroutines. 

h. The file name TAPEi, where i is an integer, must 

appear if a READ INPUT TAPE i, WRITE OUTPUT TAPE i, 
READ TAPE i, WRITE TAPE i, READ (i,n), WRITE (i,n), 
READ (i) or WRITE (i) statement is included in the 
program or its subroutines. 

5 . The file names TAPEii, . . . , TAPEi k must appear if I 
is an integer variable name and a READ INPUT TAPE I, 
WRITE OUTPUT TAPE I, READ TAPE I, WRITE TAPE I, READ 
(I,n), WRITE (l,n), READ (i) or WRITE (i) statement 
appears in the program or its subroutines . The 
integers ii, . . . , i^ must include all values which 
will be assumed by the variable I. The file name 
TAPEI may not appear in the list of arguments to the 
main program. 

6. The file name TAPEV must appear if V is a symbolic 
tape unit number and a READ INPUT TAPE V, WRITE 
OUTPUT TAPE V, READ TAPE V, WRITE TAPE V, READ (V,n), 
WRITE (V,n), READ (v) or WRITE (v) statement appears 
in the program or its subroutines 
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A program is terminated by a single END card. 

A provision is made for equivalencing file names at compile 
time. For example, the header record 

PROGRAM NAME (INPUT, OUTPUT, TAPEl = INPUT, TAPE2 = OUTPUT) 

would cause all input normally provided by TAPEl to be extracted 
from the INPUT file and all lis table output normally recorded on 
TAPE2 to be transmitted to the OUTPUT file. Equivalenced file 
names must follow, in the list of arguments, those to which they 
are made equivalent. Their corresponding argument positions may 
not be changed at the time the program is executed, although the 
names of the files to which they are made equivalent may be 
changed at this time. 



SUBROUTINE HEADER CARDS 

Every Fortran SUBROUTINE compiled independently of a main program 
which is to use it must have a header card in one of the following 
forms : 

SUBROUTINE NAME (Al, ..., AN) 
FORTRANIV SUBROUTINE NAME (Al, ..., AN) 
FORTRANII SUBROUTINE NAME (Al, ..., AN) 

The first two forms cause the subroutine to be compiled in the 
FORTRAN IV mode, and the third form causes it to be compiled in 
the FORTRAN II mode. The arguments Al, . . . , AN have their 
conventional FORTRAN significance. 

A SUBROUTINE is terminated by a single END card. 



FUNCTION HEADER CARDS 

Every Fortran FUNCTION which is compiled independently of a 
main program which is to use it must have a header card in one 
of the following forms: 

FUNCTION NAME (Al, ..., AN) 

FORTRANIV FUNCTION NAME (Al, . . . , AN) 
FORTRANII FUNCTION NAME (Al, . . . , AN) 

The first two forms cause the function to be compiled in the 
FORTRAN IV mode, and the third form causes it to be compiled 
in the FORTRAN II mode. The arguments Al, . . . , AN have their 
conventional FORTRAN significance. 

A FUNCTION is terminated by a single END card. 
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FORTRAN HANDLING OF BINARY SUBROUTINES 

The Fortran compiler, RUN, is capable of processing previously 
compiled or assembled subroutines which appear on binary cards. 
If this capability is to be used, then a card with a plus sign (+) 
in column 1 must immediately follow the END card of the program 
to be compiled. This card, in turn, must be immediately followed 
by subroutines on binary cards. The end of the binary subroutine 
portion of the deck is indicated by a standard end-of-file card. 

JOB238 (5, 100,40000) 

RUN 

789 

PROGRAM HENRY (INPUT, OUTPUT) 

(Standard Fortran coding) 

END 
+ 

(Binary subroutines) 

789 

(Fortran data) 

6789 



58 



ADDITIONAL NOTES ON THE FORTRAN COMPILER 

The following remarks concern certain nonstandard features of the 
compiler; 

1. Boolean constants in B-type statements must be changed in 
some cases because of the increased word length of the 6600 
or because of the use of display code as an internal code. 

2. Complex arithmetic is not performed by subroutines. 

3. Double-precision arithmetic is performed on one-word 
operands (allowing approximately 15 decimal digits of 
accuracy) , although two memory locations are allocated to 
double-precision variables. 

4. The notations M .T." and ".F." may be substituted for the 
FORTRAN IV constants ".TRUE." and ".FALSE.". 

5. The compiler requires 30000 octal locations in memory plus 
a variable-sized area for tables and the binary version of 
the object program. It is recommended that arrays be 
assigned to the blank COMMON region since this region is 
not part of the binary version of the object program as 
developed at compile time. 

6. Independently compiled subroutines, or functions, may not 
use more than 65,536 decimal locations in the COMMON 
region or more than 65,536 decimal locations locally. 

7. FORTRAN IV blank COMMON assignments are made after labeled 
COMMON assignments, i.e., blank COMMON regions are located 
in higher addresses than labeled COMMON regions. A labeled 
COMMON region may be considered as a local region of the 
program or subroutine which establishes it. Hence, data 
may be entered into it by DATA statements. 

8. Object-program input/output buffers are assigned to the 
top of the field in which the program is to run. Blank 
COMMON assignments are made to the region immediately below 
the input/output buffers. Neither of these regions is 
included in the binary version of a program or subroutine 
which is transmitted to the disk for running or punching. 

9. FORTRAN II and FORTRAN IV statements which are not inherently 
incompatible may be intermixed in a program to be compiled 

in either mode. Inherently incompatible statements are 
those involving function subroutine references and EQUIVA- 
LENCE statements causing a reordering of variables in the 
COMMON region. However, any standard FORTRAN II or FORTRAN 
IV library or built-in subroutine reference may appear in a 
program to be compiled in either mode. 

10. The statement IF(ENDFILE l)Nl,N2, where I is a constant or 
variable, may be used in a program or subroutine. 
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11. If a program is declared to be FORTRAN II, FORTRAN IV, MACHINE, 
or ASCENTF, this mode is assumed for all subsequent subroutines 
unless specific subroutines are declared to be of a different 
mode. If a subroutine is declared to be of a different mode, 
it will be processed in its declared mode. The subroutine follow- 
ing it, unless again declared to be of a different mode, will be 
processed in the mode applying to the main program. In other 
words, after processing any subroutine the compiling mode reverts 
to the one applying to the main program. 

12. Indices in DO loops must be less than 2 17 in absolute value. 

13. A BLOCK DATA subroutine is not necessary for entering data into 
a labeled COMMON region, although it may be used if desired. 

14. An followed by at least six octal digits is interpreted as an 
octal number by the compiler and is assigned a logical mode. 

15. A two-way IF statement is allowed. For example, IF(E)N1,N2 
causes branching to statement N2 only if the value of E is +0. 
E may be of logical, integer, real, double, or complex mode. 
If its mode is complex, the test is made on its real part. 

16. Full mixed mode arithmetic is permitted. The mode of an arith- 
metic expression is determined by the term of highest mode 
appearing in the expression, where the modes, from highest to 
lowest, are COMPLEX, DOUBLE, REAL, INTEGER, and LOGICAL. An 
expression is of logical mode if .NOT., .OR., or .AND. appears 
as an operator or if it contains a single term of logical mode, 
this case, operands may be of any mode. If an operand is complex, 
a logical operation is performed on its real part. 

17. If L is a logical variable and E is an expression of any mode, 
L = E causes a replacement of L by the value of E. 

18. If V is a variable of any mode and L is a logical expression, 
V = L causes a replacement of V by the value of L. 

19. A slash ; (/) in a B-type FORTRAN II statement causes a logical 
difference to be formed on its associated operands. 

20. If C is a complex variable and E is an expression of any mode 
except complex, C = E causes a replacement of the real part of 
C by the value of E and a replacement of the imaginary part of 
C by +0. 

21. If V is a variable of any mode except complex and E is a complex 
expression, V = E causes a replacement of V by the real part of E. 

22. The logical operators .NOT., .OR., or .AND. may be replaced by 
.N., .0., or .A., respectively. 



In 
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23. A number with fewer than six digits trailed by an S and appearing as an 
argument to a subroutine call is interpreted by the compiler as a 
statement number; e.g., CALL DUMP(100S,200S,0) causes an octal dump 

of the region between statements 100 and 200 of the program being 
compiled. 

24. All working regions of object programs are clear prior to execution, 
except for blank COMMON regions. Blank COMMON regions are clear at 

execution time if compilation is in the G mode. 
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FORTRAN HANDLING OF ASSEMBLY LANGUAGE 

The Fortran compiler, RUN, is capable of processing programs or 
subroutines written in assembly language. Such programs or sub- 
routines may be intermixed with regular Fortran programs and 
subroutines. Each must be organized as follows: 

1. Header card. 

2. Fortran cards, if any. 

3. Declaration cards, if any. 

4. Instruction cards. 

5. Constant cards. 

6. End card. 
It is noted that 

a) The instruction portion of the deck must be preceded by 
"0" lines corresponding to control words, arguments, and 
an exit/entry line. 

b) The constant portion of the deck must be separated from 
the instruction portion by a card with two periods (..) 
punched in columns 7 and 8. 

c) The end card is punched as in Fortran, i.e., END in columns 
7-9 of a card. 

d) Constants may appear in the instruction portion of the 
deck provided they are positive and less than 2 5 ^ # 

e) A card with an asterisk (*) in column 1 may appear anywhere 
in the deck and is treated as a remark card. 

f) A card with a period (.) in column 1 may appear anywhere 
in the deck and will cause a page eject at the time the 
program or subroutine is listed. 
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Header Formats ; 

Each program or subroutine coded in assembly language must have a 
header card in one of the following formats: 

MACHINE PROGRAM NAME 

MACHINE PROGRAM NAME (Al , . . . , AN) 

MACHINE SUBROUTINE NAME 

MACHINE SUBROUTINE NAME (Al, ..., AN) 

It is noted that 

a) The header information must be punched between column 6 
and column 73 of each card used. 

b) Up to 19 continuation cards may be used in any declaration, 
but an asterisk (*) must appear in column 6 of each 
continuation card. 

c) In the forepart of the program or subroutine to be assem- 
bled there must be three "0" lines plus one "0" line for 
each argument Al, ..., ANT 



Al 



CONTROL WORD ONE 
CONTROL WORD TWO 
ARGUMENT 1 



AN 



ARGUMENT N 
EXIT/ ENTRY 



The first two "0" lines correspond to control information 
furnished by the compiler, and the last "0" line is unused 
by a program but is the exit/entry line for a subroutine. 
The first executable instruction must follow the exit/entry 
line. 

d) The arguments Al, . . . , AN are treated as dummy arguments 
by the compiler in that they are used only to obtain an 
argument count to insert in the second control word. 

e) If an assembly- language subroutine is to be referenced by 

a Fortran program or subroutine, then the assembly- language 
subroutine must be written assuming that the addresses of 
the first six arguments, A1-A6, will be transmitted through 
index registers B1-B6; addresses of arguments beyond the 
sixth, A7 -AN, will be transmitted into the locations cor- 
responding to A7-AN within the assembly- language subroutines; 
a return jump will be made to the location following AN. 

f) Function routines, either Fortran-coded, assembly- language 
coded, or from the system's library, leave results in X6 
upon exiting. 
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Fortran Formats : 

Fortran statements which are allowed in an assembly- language program 
or subroutine are the following: 

COMMON 

EQUIVALENCE 

DIMENSION 

EXTERNAL 

DATA 

Identifiers appearing in the above statements may be used in subsequent 
symbolic instructions. Continuation cards must contain an asterisk (*) 
in column 6. 
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Declaration Formats : 

Six tag-associating declarations are allowed in assembly language. 
These provide for associating alphanumeric tags with constants, 
with regions reserved locally or in COMMON, and with external sub- 
routines which are subject to reference. Examples and explanations 
of these declarations follow: 

1. CON (Cl=25, C2-777B, C3=-6.54E-2) 

Causes the constants on the right of the equals relations 
to be assembled into a storage area and tagged with the 
identifiers appearing on the left. 

2. HOL (Hl=ABCDEFGHIJ, H2= 1234567890) 

Causes the ten-character groups, including spaces, on the 
right of the equals relations to be converted to display 
code, placed into a storage area, and tagged with the 
identifiers appearing on the left. 

3. ABS (JJ=100, KK-100B, LL*7777B) 

Causes the unsigned values on the right of the equals 
relations to be assembled into instructions containing 
the tags on the left in their address fields. 

4. RES (Kl=10, K2-100B, K3-1000) 

Causes local block reservations, where the number of words 
reserved in each block is the unsigned number to the right 
of the equals relation and where the beginning of each 
block is tagged with the identifier on the left. 

5. COM (Bl-1, B2«=300, B3-205B) 

Causes blank COMMON block reservations, where the number of 
words reserved in each block is the unsigned number to 
the right of the equals relation andwhere the beginning 
of each block is tagged with the identifier on the left. 

6. SUB (SI=SIN, LG=L0G, 0UT=0UTPTC) 

Causes the subroutines whose names appear on the right of 
the equals relations to be assembled into memory and tagged 
with the identifiers appearing on the left. 
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It is noted that 

a) Each tag-associating declaration is punched between 
column 6 and column 73 of each card used. 

b) Up to 19 continuation cards may be used in any declaration, 
but an asterisk (*) must appear in column 6 of each con- 
tinuation card. 

c) The open parenthesis ( ( ) following CON, HOL, ABS, RES, 
COM, or SUB may be replaced by any separator if the final 
closing parenthesis ( ) ) is dropped. 
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Instruction Formats : 

In the assembly language, operational registers are designated by 
single-character names as follows: 



s = 


XO 


= 


BO 


A = 


AO 


T = 


XI 


I = 


Bl 


B = 


Al 


U = 


X2 


J = 


B2 


C = 


A2 


V = 


X3 


K = 


B3 


D = 


A3 


W = 


X4 


L = 


B4 


E = 


A4 


X = 


X5 


M = 


B5 


F = 


A5 


Y = 


X6 


N = 


B6 


G = 


A6 


Z = 


X7 


- 


B7 


H = 


A7 



The letter R is used to specify a return jump, and the letter P is 
used to specify all other jumps. 

Let S represent any of the letters S-Z, I represent any of the 
letters 1-0 or the digit 0, and A represent any of the letters 
A-H. Let Q represent a positive integer less than 2 or an 
alphanumeric tag of 2-6 characters. Then the forms of assembly- 
language instructions, grouped according to functional units 
required for execution, are as follows: 



Symbolic Form Machine Form 






OOxxx 


R=Q 


OlxxK 


P=QfI 


02ixK 


P=Q,S=0 


030JK 


P=Q,S/0 


031jK 


P=Q,S)0 *"> 


032jK 


P=Q,S(0 s to 


033 jK 


P=Q,S.I 


034jK 


P=Q,S.0 


035JK 


P=Q,S.D 


036jK 


P=Q,S.N 


037JK 


P=Q,I=I 


04ijK 


P=Q,I/I 


05ijK 


P=Q,I)I 


06ijK 


P=Q,I(I 


07ijK 


S=S 


lOijx 


S.L=S*S 


llijk 


S.L=S+S 


12ijk 


S.L=S-S 


13ijk 


S=-S 


14ijk 


S.OS*S 


15ijk 


S.OS+S 


16ijk 


S.C=S-S 


17ijk 



Example 










R=TAG - - - 


■w 


a 


P=TAG+N - - - 


3P 


fci+Q 


P=TAG,T=0 - . 


2fc 


<t <5? 


P=TAG,U/0 - - 


»2 




P=TAG,V)0 - -- 


9l 




P=TAG,W(0 - • 


N6 




P=TAG,X.I - -■ 


Td 




P=TAG,Y.0 - - 


<PC 




P=TAG,Z.D - - 


- vs 




P=TAG,S.N - ■ 


ts> 




P=TAG,J=K -- 


eo. 


s: *i « 


P=TAG,L/M - . 


VS£ 




P=TAG,N)0 - . 


Cst 


Q; *,; Q 


P=TAG,I(0 - 


L.T 




Y=V - - - 


w 


xi 


T.L=W*X - - 


SxJ 


Kj**K 


V.L=Y+Z - - - 


t- 


Xj+*«t 


V.L=U-V - - 


I* 


*4-»u 


Z=-W . _ _ 


u 


-*« 


W.C=T*U . .. 




- X ** X j 


X.C=V+W 


■w. 4 


~ Xtt.*Xj 


Y.C=S-Z 


- - 


-**-*,' 
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IA 



X 



^vhO^ 



* v .<^ 



< K \P) 



Symbolic Form 


Machine Form 


Example 




S-S(Q) 


20ijk 


T=T(24) - 


. LXZ 4k 


S-S(-Q) 


2iijk 


U=U(-10) ^ Ku J* 


S=S(I) 


22ijk 


V=X(N) -- 


UJ 3; *«. 


S-S(-I) 


23ijk 


W=W(-M) .. 


A*,} «i *"- 


S,I=S- 


24ijk 


X,J=W- .. 


\iU fcj Kwt 


S,I=S+ 


25ijk 


Y,K=Z+ -■ 


^ 2:Xi *U ** 


S,I=S. 


26ijk 


Z,0=U.- - 


- Wt *4 **. 


S=I,S. 


27ijk 


T=K,V. - 


P*J tj x* 


S=*Q 


43ijk 


Y=*12 - - 


ku fr 


S.N=S+S 


30ijk 


T.N=U+V - 


$U 


S.N=S-S 


31ijk 


U.N=X-Z 


**l 


S.D=S+S 


32ijk 


V.D=V+V - 


• 5>Ki 


S.D=S-S 


33ijk 


W.D=S-U - 


0>Xt 


S . R=S+S 


34ijk 


X.R=Y+Z - 


0*1 


S.R=S-S 


35ijk 


Y.R=Z-T - 


Q-K 


S.I=S+S 


36ijk 


T.I=IH-X - 


lAt 


S.I=S-S 


37ijk 


Z.I=Y-Z 


-xai 


S.N=S*S 


40ijk 


S.N=X*X - 


*$%l 


S.R=S*S 


41ijk 


Y. R=Y*Y - 


4Wjtfcx; 


S.D=S*S 


42ijk 


T.D=T*U - 


?>Ai 


S.N=S/S 


44ijk 


Y.N=T/X - 


Wti. 


S.R=S/S 


45ijk 


Z.R=X/W - 


£& 


$ 


46xxx 


$ 


W 


s=*s 


47ixk 


T=*W 


-Ml Xic 


S= (A+Q) 


50ijK 


T=(C+TAG) 


~SA; A;«-K 


S=(I+Q) 


51ijK 


U=(J+100) 


-sa<; <&-Mt 


S=(S-K}) 


52ijK 


Z=(T+30B) 


-3AJ Xi + K 


S=(S+I) 


53ijk 


T=(T+J) _ 


S^tSAc Xv+Jtt. 


S=(A+I) 


54ijk 


U=(B+K) - 


- £A«* Aj-ffl* 


S=(A-I) 


55ijk 


V=(ON)- 


SAi Al'fe* 


S=(I+I) 


56ijk 


W= (M+N) _ 


SM %j*%* 


s=(i-i) 


57ijk 


X=(L-K) - 


3Av r V-6»x 


I=A+Q 


60ijK 


J=H+TAG ~ 


*&£ Aj*K 


I=I+Q 


61ijK 


K=L+10 -~ 


Sfc t ' 1^*. 


I=S+Q 


62ijK 


L=L+55B . 


S^' XJ*K 


I=S+I 


63ijk 


M=T+J , - 


*U *1 + 6 * 


I=A+I 


64ijk 


N=G+K — 


sfc<T Ai+V 


I=A-I 


65ijk 


0=A-L -■ • 


S6i Ai - *«- 


1=1+1 


66ijk 


I=I+J _. 


Sty ^ *V 


1=1-1 


67ijk 


J=K-M -- 


skc *J -«>«. 


S=A+Q 


70ijK 


T=G+TAG •- 


SX£ Aj+K 


S=I+Q 


71ijK 


U=K+5 - - 


SX V ' *i>«. 


S=S+Q 


72ijK 


V=L+15B - 


S X < Kj 4-H. 


S=S+I 


73ijk 


W=X+ J - - 


3Xj ^+ft»L 


S=A+I 


74ijk 


X=A+K — 


- S*; * 4 4i>ffc 


S=A-I 


75ijk 


Y=C-L - . 


?U Ai -U 


S=I+I 


76ijk 


Z=M+I . , 


•s** ^j+V 


S=I-I 


77ijk 


S=N-0 r . 


-5*4 VV 
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It is noted that 

a) The arithmetic mode indicators L, C, N, D, R, and I may 
immediately follow a result register name, i.e., the 
period (.) in these cases is optional. 

TL=X*Y 
UC=V+V 
VN=T/W 
WD=X+Y 
XR=S-T 

b) In the instructions 02 and 50-77 either term may be 
dropped, in which case a designation is assembled. 

P=K 

P=TAG 

T=(J) 

J=15B 

U=-K 

c) In the instructions 50-54, 60-64, and 70-74 the terms 
may be interchanged unless Q is a constant. 

T=(TAG+L) 

M-K+B 

U=L+X 

d) In the instructions 50-52, 60-62, and 70-72 the plus sign 
(+) may be replaced by a minus sign (-) if Q is a constant, 

X=(I-30) 

J=K-55B 

Y=-l 

e) In the instructions 51, 61, and 71 the right member may 

be an indicated sum or difference of a tag and a constant, 
in which case the constant must follow the tag. 

W=(TAG-35) 

K=TAG+1 

U-TAG+100B 

f) In the instruction 51 the parenthesized quantity may be a 
constant, represented in conventional Fortran form, only 
if the result register is to receive the machine version 
of that constant; in this case the address of the con- 
verted number is assembled into the instruction. 

T«(-1.5E-6) 
U-(47550516045547B) 
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g) If it is desired to have Q correspond to an octal integer, 
then the digits in the number must be trailed by a B. 

h) Alternate forms for certain instructions are 



s=s.s 


llijk 


s=s$s 


12ijk 


s=-s.s 


15ijk 


s=-s$s 


16ijk 


s=s+s 


36ijk 


s=s-s 


37ijk 


s=s*s 


40ijk 


s=s/s 


44ijk 


A=A+Q 


50ijK 


A=I+Q 


51ijK 


A=S+Q 


52ijK 


A=S+I 


53ijk 


A=A+I 


54ijk 


A=A-I 


55ijk 


A=I+I 


56ijk 


A=I-I 


57ijk 



i) Each instruction must be punched between column 6 and column 73 
of a card; no blanks are permit ted within the instruction code. 

j) A comment may follow any instruction code, but at least one 
blank must separate it from the instruction. 

k) An alphanumeric location tag of 2-6 characters may be punched 
in columns 1-6 of a card containing an instruction; no blanks 
are permitted within the tag. 

1) A plus sign (+) in a location field will force the corresponding 
instruction to the high order positions of a new word. 

m) The instruction 00 is assembled as a full zero word. 
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Constant Formats : 

Decimal constants in standard Fortran notation may be specified in 
assembly- language. Octal constants may be specified by placing a 
B after the digits of the number. 

It is noted that 

a) A constant must be punched between column 6 and column 73 
of a card; no blanks are permitted with the constant 
specification. 

-100.0 
500 
100B 
+15.64E-3 

b) An alphanumeric location tag of 2-6 characters may be 
punched in columns 1-6 of a card containing a constant; no 
blanks are permitted within the tag. 

C0N1 -150.0 
C0N2 3.6E10 

c) Block reservations of zero words, tagged or untagged, may 
be made by enclosing the number of words to be reserved in 
parentheses; the parenthesized quantity must appear between 
column 6 and column 73 of a card; if a location tag appears 
on the same card, then it will be associated with the first 
word of the block. 

BK1 (100) 
BK2 (200B) 
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FORTRAN HANDLING OF AN ASCENT SUBSET 

The Fortran compiler, RUN, is capable of processing programs or 
subroutines written in a subset of ASCENT assembly language. Such 
programs or subroutines may be intermixed with regular Fortran programs 
and subroutines. Each must be organized as follows: 

1. Header card. 

2. Fortran cards, if any. 

3. Instruction cards. 

4. Constant cards. 

5. End card. 
It is noted that 

a) The instruction portion of the deck must be preceded by lines 
of coding which produce "0" words corresponding to control 
words, argument words, and an exit/entry word. 

b) The instruction portion of the deck may contain BSS, BSSZ, 

and EQU cards. The address field of any such card may contain 
onl y a single constant. BSS and BSSZ cards produce zero regions 

c) The constant portion of the deck may contain BSS, BSSZ, EQU, 
DPC, BCD, and CON cards. The address fields of these cards' 
may contain only a single constant or ten-character string 
of the form *ABCDEFGHIJ*. DPC and BCD character strings are 
reduced to display code. 

d) The constant portion of the deck must be separated from the 
instruction portion by a card with two periods (..) punched 
in columns 7 and 8. 

e) The end card is punched as in Fortran, i.e., END appears 
between column 6 and 73 of the card. 

f) Fortran C-type comment cards are not permitted. 

g) Fortran cards may contain COMMON, EQUIVALENCE, DIMENSION, 
EXTERNAL, or DATA statements. Identifiers appearing in the 
statements may be used in subsequent symbolic instructions. 
Continuation cards must contain an asterisk (*) in column 6. 

h) The header card must be in one of the following formats: 

ASCENTF PROGRAM NAME 

ASCENTF PROGRAM NAME (Al, . . . ,AN) 

ASCENTF SUBROUTINE NAME 

ASCENTF SUBROUTINE NAME (A1,...,AN) 
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The header information must be punched between column 6 and 
column 73 of each card used. Continuation cards may be used, 
but must be designated by an asterisk (*) in column 6. 

i) Instruction formats are as described in ASCENT programming 

manuals, but with certain restrictions. An address field may 
contain an indicated sum of a tag and constant, but not a 
sum or difference of two tags. Location tags may start in 
column 1, but may not extend beyond column 6. Instructions 
may start anywhere beyond column 6, but no card may contain 
more than one instruction. The PS instruction causes 
assembly of a full zero word. 

j) Location tags associated with pseudo-operations may start 
in column 1, but may not extend beyond column 6. 

k) Double-precision and complex "literal constants" are not 
accepted. 

1) A minus sign (-) in a location field is not allowed. 

m) An asterisk(*) in an address field is not allowed. 

n) Except for the header card and the double-period card, 

separating instructions from constants, upward compatibility 
from the Chippewa System to SIPROS is achievable by starting 
location tags of no more than five characters in column 2 and 
by starting instructions and pseudo-operations in column 11. 

o) All other formats, except those of instructions, which have 
been described for the Chippewa assembly language acceptable 
to the compiler may be used; but each such usage introduces an 
incompatibility between the Chippewa System and SIPROS. If one 
desires only to replace instruction formats of the Chippewa 
assembly language by ASCENT formats, but retain all other 
formats of that language, he may do so. 
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FORTRAN ERROR PRINTOUTS 

During a Fortran compilation two-character error prints may 
follow statements which are incorretrt; other such prints may follow 
the END statement, indicating other types of errors in the program. 
A list of these two-character error indicators, along with a brief 
explanation of the type of error which each indicates, follows: 

AC Argument -Count Error 

Indicates that the number of arguments in a current reference to 
a subroutine differs from the number which occurred in a prior 
reference. 

AL Argument-List Error 

Indicates a format error in a list of arguments. 
AS Assign Error 

Indicates a format error in an ASSIGN statement. 

BC Boolean-Constant Error 

Indicates a format error in the designation of a FORTRAN boolean 
constant in a B-type expression. 

BI Binary- Input Error 

Indicates that a subroutine on binary cards following the Fortran 
program and its Fortran-coded subroutines has an incorrect header card, 

BO Common-Block-Overflow Error 

Indicates that the current requirements for a labeled block of 
COMMON storage exceed the length of the block as established in a 
preceding COMMON statement. 

BX Boolean-Expression Error 

Indicates a format error in a B-type boolean statement. 

CD Duplicate- Common Error 

Indicates that a variable currently being assigned to the COMMON 
region has been previously assigned to this region. 

CE Common-Equivalence Error 

Indicates that two variables assigned to COMMON storage are 
being improperly equivalenced. 
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CL Call Error 

Indicates a format error in a CALL statement. 
CM Common Error 

Indicates a format error in a COMMON statement. 
CN Continuation Error 

Indicates that more than nineteen continuation cards appear in 
succession or that one such card appears in an illogical sequence. 

CO Common-Overflow Error 

Indicates that the amount of COMMON storage, required by the 
main program or specified to the compiler, is less than that required 
by the current program or subroutine. 

CT Continue Error 

Indicates that a CONTINUE statement is missing a statement number. 

DA Duplicate-Argument Error 

Indicates that duplicate dummy arguments appear in a function- 
definition statement. 

DC Decimal-Constant Error 

Indicates a format error in the expression of a FORTRAN decimal 
constant. 

DD Duplicate-Dimension Error 

Indicates that a variable currently being dimensioned has been 
previously dimensioned. 

DF Duplicate-Function-Name Error 

Indicates that the function name in the current function- 
definition statement has occurred as the name of a previously 
defined function. 

DM Dimension Error 

Indicates a format error in a DIMENSION statement. 

DO Do Error 

Indicates a format error in a DO statement. 
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DP Duplicate-Statement-Number Error 

Indicates that the current statement number has previously 
appeared in the statement-number field. 

DS Missing-Do-Number Error 

Indicates that references have been made in DO statements to 
statement numbers which did not appear somewhere in the statement- 
number field of a card. 

DT Data Error 

Indicates a format error in a DATA statement. 

EC Equivalence-Contradiction Error 

Indicates that a variable currently appearing in an EQUIVALENCE 
statement cannot be equivalenced because of an inherent contradiction 
in the statement. 

EF End-of-File Error 

Indicates than end-of-file card is detected before the last 
END card is encountered. 

EM Exponential -Mode Error 

Indicates that the mode of the base or the exponent of an 
indicated exponentiation process is improper. 

EQ Equivalence Error 

Indicates a format error in an EQUIVALENCE statement. 

EX Exponent Error 

Indicates a format error in the exponent portion of an indicated 
exponentiation process. 

FL Function-List Error 

Indicates a format error in an EXTERNAL statement or F-type 
statement. 

FM Format Error 

Indicates a format error in a statement whose type cannot be 
determined. 

FN Format-Statement-Number Error 

Indicates that a FORMAT statement is missing a statement number. 
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FS Format-Specification Error 

Indicates a format error in the specification portion of a FORMAT 
statement. 

FT Function-Type Error 

Indicates a format error in a TYPE statement. 
GO Go-To Error 

Indicates a format error in a GO statement. 
IF If Error 

Indicates a format error in an IF statement. 

IL Indexed-List Error 

Indicates a format error in an indexed list of the current input/ 
output statement. 

LR Library- Reference Error 

Indicates that a reference has been made to a standard library 
subroutine where more arguments appeared in the reference than are 
provided for by the subroutine. 

LN Name-List Error 

Indicates a format error or a reference to an array with variable 
dimensions in a NAMELIST statement. 

LS List Error 

Indicates a format error in an input/output list. 

MA. Mis us e-of- Argument Error 

Indicates that an argument of the SUBROUTINE or FUNCTION being 
compiled has been misused in an EQUIVALENCE statement. 

MC Machine-Cons tant Error 

Indicates an error in the formatting of a constant in a tag- 
defining line of coding involving the pseudo operations RES, COM, 
CON, ABS, SUB, or HOL. 

MD Machine-Duplicate-Tag Error 

Indicates that a tag appearing in a tag-defining line of coding 
involving the paeudo operations RES, COM, CON, ABS, SUB, or HOL has 
been previously defined. 
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MF Machine-Format Error 

Indicates a format error in a tag-defining line of coding involving 
the pseudo operations RES, COM, CON, ABS, SUB, or HOL. 

ML Machine-Location-Tag Error ..„., 

Indicates that a tag appearing in an address field of a machine 
instruction did not appear in a subsequent location field. 

MO Memory-Overflow Error 

Indicates that the compiler field length, as specified on the 
job card, is too short. 

MR Missing-Subroutine Error 

Indicates that subroutines which are not in the standard sub- 
routine library have been referenced by the Fortran program or its 
Fortran-coded subroutines. 

MS Missing-Statement-Number Error 

Indicates that references have been made to statement numbers 
which did not appear somewhere in the statement-number field of a 
card. 

MT Machine-Tag-Definition Error 

Indicates a format error in a tag-defining line of coding involving 
the pseudo operations RES, COM, CON, ABS, SUB, or HOL. 

NC Name-Conflict Error 

Indicates that the name of a SUBROUTINE or FUNCTION conflicts 
with prior usage of the name. 

NM Name Error 

Indicates an error in formatting of the name (header) card. 

OD Dimension- Statement-Order Error 

Indicates that a reference to an array has been made prior to 
the appearance of the array name in a DIMENSION statement. 

PN Parentheses Error 

Indicates that an unequal number of opened and closed parentheses 
appear in a statement. 
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RN Return Error 

Indicates a format error in a RETURN statement. 

SB Subscript Error 

Indicates a format error in a subscript of an array reference 
currently being processed. 

SE Sense Error 

Indicates a format error in a SENSE statement. 

SF Short-Field-Length Error 

Indicates that the required field length of the program or sub- 
routine being compiled exceeds the specified one. 

SL Subroutine-Storage-Limit Error 

Indicates that the compiler field length, as specified on the 
job card, is exceeded at the time that standard library subroutines 
are being assembled. 

SM Statement-Number-Field Error 

Indicates a format error in the statement- number field of the 
current statement. 

SN Statement-Number Error 

Indicates a format error in a position where a statement number 
should appear. 

SY System Error 

Indicates a machine malfunction. 

TM Too-Many- Arguments Error 

Indicates that a subroutine reference has more than sixty argu- 
ments or that the program or subroutine being compiled has more 
than sixty arguments. 

TY Type Error 

Indicates * format error in a TYPE statement. 

UA Unidentified-Array Error 

Indicates that a reference has been made to an array where the 
array name has not previously appeared in a DIMENSION statement. 
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UE Unidentified-Equipment Error 

Indicates a reference to an input/output file which was not 
listed in the header card of the main program. 

US Unreferenced-Binary-Subroutine Error 

Indicates that a subroutine on binary cards following the 
Fortran program and its Fortran-coded subroutines has not been 
referenced. 

VC Variable-Name-Conflict Error 

Indicates that a variable name appears which conflicts with 
some other prior usage. 

VD Variable-Dimensioned-Array Error 

Indicates that an array whose dimensions are arguments to the 
SUBROUTINE or FUNCTION being compiled has been misused. 

VN Variable-Name Error 

Indicates an error in a variable name appearing in the current 
statement. 

XF Expression-Format Error 

Indicates a format error in the expression currently being 
processed. 

XM Expression-Mode Error 

Indicates that an expression currently being processed is one 
in which modes are mixed. 
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Error Messages Entered into Dayfile 



The following error statements may be entered into the dayfile 
during execution of a FORTRAN program, or a machine language 
program using the FORTRAN subroutines. 

After each message the program is aborted. 



Origin 

INPUTC - data input subroutine. 

INP(FN) FN is the number of the format statement 
being executed at time of error. 

END OF FILE, DATA INPUT # Attempt made to read past 

file mark. 

OUTPTC - data output subroutine. 

BCD OUTPUT ** UNASSIGNED MEDIUM . Failure to specify 

a file name during 
compilation. 

NO DEC. PT IN E OR F . No significance specified 

in E or F conversion. 

EXCEEDED RECORD LENGTH . More than 150 characters 

have been entered as a 
record. 

ILLEGAL FUNCTIONAL LETTER . Illegal format letter. 

PAREN. LEVEL N(N( . Format has parenthetical 

group within a parenthetical 
group. 

For OUTPTC messages, the format number is 
entered in the line following the message. 

INPUTB - binary input. 

BIN INPUT ** UNASSIGNED MEDIUM. 
OUTPTB - binary output. 

BIN OUTPUT ** UNASSIGNED MEDIUM. 
ENDFIL - write end of file. 

EOF ** UNASSIGNED MEDIUM. 
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CPUASM 

The Central Processor Assembler provides a language for writing 
programs and subroutines thatThay be executed independently or as 
a FORTRAN subroutine. The basic features of the language were 
originally described in Volume I ASCENT of CONTROL DATA* 6600 
Programming System/Reference Manual. 

Assemblies are initiated by calling for CPUASM from the systems 
library. Punch, list, and execute options are parameters to 
CPUASM. The binary version is always transferred to the disk file 
regardless of option parameters or assembly errors. P, L, and X 
are the three parameters to the assembler: 

P - punch binary cards. 
L - list side by side. 
X - execute program. 

Example of program to be assembled: 

JOB, 5, 3, 30000. 
CPUASM(L,X,P) 
7,8,9 
PROGRAM NAME 

STATEMENTS 
END 
6,7,8,9 

If the execute option (X) is deleted, the progrrm may still be 
called by referencing the program via the control card following 
the assembly. 
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Symbols : 



Symbols may be any arrangement of characters up to 10 
characters in length. A symbol must begin with an alphabetic 
letter and must not contain any separators. The special 
characters used as separators are +,-/*=$ and SPACE. 
Symbols used in address fields may be signed + or - allowing 
them to be added to one another or to a constant. 



Constants : 



Constants may be either octal or decimal fixed point integers 
- 2^0- 1, a symbolic address or a single precision floating 
point number. Integers are assumed to be decimal unless 
appended by the letter B. Floating point numbers must have a 
decimal point and may optionally be followed by an exponent 
E±N. 



Field definitions: 

The location field starts in column 2 and may be 1-10 char- 
acters in length. If a location tag is present the operation 
code must be separated from it by a space code or must not 
start prior to column 7 if no location tag is present. 

The address field is variable in length and is separated from 
the operation code. In general, the address field may be any 
combination of terms, integer and/or symbolic, as long as the 
constant field for the instruction is not exceeded. Terms in 
address fields may also be a combination of 1 or 2 A, B, or X 
registers; if only 1 term is present Bo is assumed as the 
second term. 
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Pseudo Operation Codes. 



PROGRAM: Defines the job to be a program; the symbol in 
the address field is the name of the program as 
referenced by the system. 

SUBROUTINE: Defines the job to be a subroutine and sets 

relocatable bits for later use by the FORTRAN 
compiler or machine program. The symbol in the 
address field is the name used to reference the 
subroutine. 



END: 
BSS: 

EQU: 
DPC: 

BCD: 

CON: 

EJECT: 

SPACE: 



Last card of a program or subroutine. 

Address field defines the length of the block 
reservation. Address field may be integer 
constant or symbolic constant. 

Equivalences a symbol to another symbol or a 
constant. 

Allows the entry of console display codes, the 
length being specified by a 2 digit integer, or 
the codes between *'s are entered. 

Converts the characters enclosed by the asterisks 
or converts the characters specified by the 
beginning 2 digit integer. 

Converts each term to a 60 bit constant. 

Ejects the listing to the top of the next page. 

Spaces the number of lines specified by the 
address field. 
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OPERATION CODES 



OP 


MNEMONIC 


ADDRESS 


00 


PS 




01 


RJ 


K 


02 


JP 


Bi+ K 


030 


ZR 


Xi K 


031 


NZ 


Xi K 


032 


PL 


Xi K 


033 


NG 


Xi K 


034 


IR 


Xi K 


035 


OR 


Xi K 


036 


DF 


Xi K 


037 


ID 


Xi K 


04 


EQ 


BiBjK 


04 


ZR 


Bi K 


05 


NE 


BiBjK 


05 


NZ 


Bi K 


06 


GE 


BiBjK 


06 


PL 


Bi K 


07 


LT 


BiBjK 


07 


NG 


Bi K 


10 


BXi 


Xj 


11 


BXi 


Xj*Xk 


12 


BXi 


Xj+Xk 


13 


BXi 


Xj-Xk 


14 


BXi 


-Xk 


15 


BXi 


-Xk*Xj 


16 


BXi 


-Xk+Xj 


17 


BXi 


-Xk-Xj 


20 


LXi 


jk 


21 


AXi 


Jk. 


22 


LXi 


Bj,Xk 


23 


AXi 


Bj,Xk 


24 


NXi 


B j Xk 


25 


ZXi 


Bj Xk 


26 


UXi 


Bj Xk 


27 


PXi 


Bj Xk 


43 


MXi 


jk 


30 


FXi 


Xj+Xk 


31 


FXi 


Xj-Xk 


32 


DXi 


Xj+Xk 


33 


DXi 


Xj-Xk 


34 


RXi 


Xj+Xk 



REMARKS 

.Branch unit 

.Program stop 

.Return jump to K 

.Jump to Bi+K 

.Jump to K if Xi=0 

.Jump to K if Xi^O 

.Jump to K if Xi^plus (positive) 

.Jump to K if Xi=negative 

.Jump to K if Xi is in range 

.Jump to K if Xi is out of range 

.Jump to K if Xi is definite 

.Jump to K if Xi is indefinite 

.Jump to K if Bi=Bj 

.Jump to K if Bi*B0 

.Jump to K if Bi^Bj 

.Jump to K if Bi^BO 

.Jump to K if Bi>Bj 

.Jump to K if Bi£B0 

.Jump to K if Bi<Bj 

.Jump to K if Bi<B0 

.Boolean Unit 

.Transmit Xj to Xi 

.Logical Product of Xj & Xk to Xi 

.Logical sum of Xj & Xk to Xi 

.Logical difference of Xj & Xk to Xi 

.Transmit the comp. of Xj to Xi 

.Logical product of Xj & Xk comp. to Xi 

•Logical sum of Xj & Xk comp. to Xi 

•Logical difference of Xj & Xk comp. to Xi 

.Shift Unit 

.Left shift Xi,jk places 

.Arithmetic right shift Xi,jk places 

.Left shift Xi nominally Bi places 

•Arithmetic right shift Xi nominally Bi places 

•Normalize Xk in Xi and Bj 

•Round and normalize Xk in Xi and Bj 

•Unpack Xk to Xi and Bj 

.Pack Xi from Xk and Bj 

.Form mask in Xi,jk bits 

.Add Unit 

.Floating sum of Xj and Xk to Xi 

.Floating difference Xj and Xk to Xi 

.Floating DP sum of Xj and Xk to Xi 

.Floating DP difference of Xj and Xk to Xi 

.Round floating sum of Xj and Xk to Xi 



85 



OP MNEMONIC ADDRESS 



REMARKS 



35 

36 
37 

40 
41 
42 

44 
45 
46 
47 

50 
50 
51 
51 
52 
52 
53 
54 
55 
56 
57 
60 
60 
61 
61 
62 
62 
63 
64 
65 
66 
67 
70 
70 
71 
71 
72 
72 
73 
74 
75 
76 
77 



RXi 

IXi 
IXi 

FXi 
RXi 
DXi 

FXi 
RXi 
NO 
CXi 

SAi 

SAi 

SAi 

SAi 

SAi 

SAi 

SAi 

SAi 

SAi 

SAi 

SAi 

SBi 

SBi 

SBi 

SBi' 

SBi 

SBi 

SBi 

SBi 

SBi 

SBi 

SBi 

SXi 

SXi 

SXi 

SXi 

SXi 

SXi 

SXi 

SXi 

SXi 

SXi 

SXi 



Xj-Xk 

Xj+Xk 
Xj-Xk 

Xj*Xk 
Xj*xk 
Xj*Xk 

Xj/Xk 
Xj/Xk 

Xj 

Aj+K 

Aj-K 

Bj+K 

Bj-K 

Xj+K 

Xj-K 

Xj+Bk 

Aj+Bk 

Aj-Bk 

Bj+Bk 

Bj-Bk 

Aj+K 

Aj-K 

Bj+K 

Bj-K 

Xj+K 

Xj-K 

Xj+Bk 

Aj+Bk 

Aj-Bk 

Bj+Bk 

Bj-Bk 

Aj+K 

Aj-K 

Bj+K 

Bj-K 

Xj+K 

Xj-K 

Xj+Bk 

Aj+Bk 

Aj-Bk 

Bj+Bk 

Bj-Bk 



.Round floating difference of Xj and Xk to Xi 

.Long Add Unit 

.Integer sum of Xj and Xk to Xi 

.Integer difference of Xj and Xk to Xi 

.Multiply Unit 

.Floating product of Xj and Xk to Xi 

.Round floating product of Xj & Xk to Xi 

.Floating DP product of Xj & Xk to Xi 

.Divide Unit 

.Floating divide Xj by Xk to Xi 

.Round floating divide Xj by Xk to Xi 

.No operation 

.Count the number of l's in Xj to Xi 

.Increment Unit 

•Set Ai to Aj+K 

.Set Ai to Aj+ comp. of K 

.Set Ai to Bj+K 

.Set Ai to Bj+ comp. of K 

.Set Ai to Xj+K 

.Set Ai to Xj+ comp. of K 

.Set Ai to Xj+Bk 

.Set Ai to Aj+Bk 

.Set Ai to Aj-Bk 

.Set Ai to Bj+Bk 

.Set Ai to Bj-Bk 

to Aj+K 

to Aj+ comp. of K 

to Bj+K 

to Bj+ comp. of K 
.Set Bi to Xj+K 
.Set Bi to Xj+ comp. of K 
.Set Bi to Xj+Bk 
.Set Bi to Aj+Bk 
.Set Bi to Aj-Bk 
.Set Bi to Bj+Bk 
.Set Bi to Bj-Bk 
.Set Xi to Aj+K 
.Set Xi to Aj+ comp. of K 
.Set Xi to Bj+K 
.Set Xi to Bj+ comp. of K 
•Set Xi to Xj+K 
.Set Xi to Xj+ comp. of K 
.Set Xi to Xj+Bk 
.Set Xi to Aj+Bk 
.Set Xi to Aj-Bk 
.Set Xi to Bj+Bk 
.Set Xi to Bj-Bk 



.Set Bi 
.Set Bi 
.Set 
.Set 



Bi 
Bi 
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Error Codes. 



The following error codes may appear on the side by side listing: 

P - Location symbol has previously been defined. 

U - Symbol in address field is undefined. 

C - Constant out of range or contains illegal codes. 

I - Instruction field not legal. 

M - Symbol in address field is multiply defined. 

- Address field does not correspond to any valid instruction, 
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PAS 
PERIPHERAL ASSEMBLY LANGUAGE 

This assembler is a PPU program which converts PPU symbolic language 
into PPU absolute language. 

The assembler produces a side by side listing and binary cards. Punch- 
ing of cards is suppressed if an error has been detected in the assembled 
program. The binary cards punched may be either 80-column binary cards or 
Chippewa Laboratory standard binary card format, i.e.: Columns 1 and 2 con- 
tain a binary card identifier (7-9 punch), number of 60-bit words on the card 
(l5^o maximum) and a card check sum. Column 80 is a card sequence number. 
To punch Chippewa Laboratory binary cards, the job cards are: 

Job (1, 100, 1000) 

PAS 

789 

Program Deck 

6789 

To ounch standard 80-column binary cards, the job cards are: 

Job (1, 100, 1000) 

PAS, 1000 

789 

Program Deck 

6789 

There is no provision for leaving a running version of the assembled 
Drogram in the computer. The assembled program is available as a card deck 
and/or a line printer listing. 

CARD FORMAT: 

Card format for this assembler is fixed field except for the remarks 
card which may be one of two variations. 

(1) Pseudo op "REM" which must appear in the OP field (Cols. 6-7-8) is 
free fielded thereafter and 

(2) * in Column 1, and free fielded thereafter. 
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The other exception is the "DIS" pseudo op which converts all characters 
following DIS to display code. 

The standard format then, used in all other instances, is as follows: 

Col. 1-4 = Location field. Maximum of 4 alpha-numeric characters. 

Col. 5 = Blank. 

Col. 6-8 = Op field. Three character mnemonic (See Table 1). 

Col. 9 = Blank. 

Col. 10-13 = Tag field. Maximum of 4 alpha-numeric characters. 
There are no provisions for adding a constant to or 
subtracting a constant from a tag. 

Col. 14-19 = Blank. 

Col. 20-80 = Comments. 

CONSTANTS: 

Numeric constants used in a program will be placed in Columns 10-13 
and are considered to be octal. They therefore have a range of 0000 to 
7777 in a two address instruction or a range of 00 to 77 in a one address 
instruction. All constants are right adjusted by the assembler. 

Constants may also be in the form of a tag; however, the converted 
value must also follow the rules for one and two address instructions. 

OP CODES AND PSEUDO OPS: 

These are defined in Table 1. 

ERROR FLAGS: 

There are several errors which will be detected by the assembler and 
shown as a 1 character/error tag in the left margin of the assembled listing. 
= Illegal Op code. 

U = Undefined tag has been referenced. 
M = Location tag used more than once. 

R = Range error, d portion is greater than 77 or on a jump 
instruction (03-07) location tag is found to be more than 
37« forward or backward. 
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TABLE 1. MNEMONIC OP CODES AND PSEUDO OPS 



Op Codes 



Mnemonic & 
Octal Code 

PSN 00 

LJM 01 
RJM 02 
UJN 03 
ZJN 04 
NJN 05 
PJN 06 
MJN 07 
SHN 10 
LMN 11 
LPN 12 
SCN 13 
LDN 14 
i LCN 15 
! ADN 16 
SBN 17 

LDC 20 

I ADC 21 

LPC 22 

LMC 23 

| PSN 24 
! PSN 25 

i EXN 26 
! RPN 27 

i 

! LDD 30 
j ADD 31 
! SBD 32 

LMD 33 
I STD 34 
j RAD 35 
i AOD 36 

SOD 37 

LDI 40 
ADI 41 
SBI 42 



Name 



Pass 



Long jump to m + (d) 

Return jump to m + (d) 

Unconditional jump d 

Zero jump d 

Nonzero jump d 

Plus jump d 

Minus jump d 

Shift d 

Logical difference d 

Logical product d 

Selective clear d , 

Load d 

Load complement d 

Add d 

Subtract d 

Load dm 

Add dm 

Logical product dm 

Logical difference dm 

Pass 
Pass 

Exchange jump 

Read program address 

Load (d) 

Add (d) 

Subtract (d) 

Logical difference (d) 

Store (d) 

Replace add (d) 

Replace add one (d) 

Replace subtract one (d) 

Load ((d)) 
Add ((d)) 
Subtract ((d)) 



Mnemonic & 
Octal Code 




LMI 43 

STI 44 
RAI 45 
AOI 46 
SOI 47 



LDM 


50 


ADM 


51 


SBM 


52 


LMM 


53 


STM 


54 


RAM 


55 


AOM 


56 


SOM 


57 


CRD 


60 


CRM 


61 


CWD 


62 


CWM 


63 


AJM 


64 


IJM 


65 


FJM 


66 


EJM 


67 



IAN 


70 


IAM 


71 


OAN 


72 


0AM 


73 


ACN 


74 


DCN 


75 


FAN 


76 


! FNC 

1 


77 



Logical difference ((d)) 

Store ((d)) 
Replace add ((d)) 
Replace add one ((d)) 
Replace subtract one ((d)) 

Load (m + (d)) 

Add (m + (d)) 

Subtract (m + (d)) 

Logical Difference (m + (d)) 

Store (m + (d)) 

Replace add (m + (d)) 

Replace add one (m + (d)) 

Replace subtract one (m + (d) 

Central read from (A) to d 
Central read (d) words 

from (A) to m 
Central write to (A) from d 
Central write (d) words 

to (A) from m 

Jump to m if 

channel d active 
Jump to m if 

channel d inactive 
Jump to m if 

channel d full 
Jump to m if 

channel d empty 
Input to A from channel d 
Input (A) words to m 

from channel d 
Output from A on channel d 
Output (A) words from m on 

channel d 
Activate channel d 
Disconnect channel d 
Function (A) on channel d 
Function m on channel d 
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TABLE 1. (cont.) 

Paeudo Ops 

IDT * Name of program. 

0RG » Beginning location of assembled program. Will be set to 1000 
if no 0RG specified. 

SBL ■ Set beginning address of binary punch out. 

BLR = Block locations reserve. 

REM * Remarks card. * in Column 1 is also a remarks card. 

EQU ■■ Equates a tag to a numeric constant or a pre-defined location tag, 

DIS = Converts the remaining characters to display code and packs them 
2 to a word. Word following packed display code is all zeros. 

END ■* Defines the last card of the deck to be assembled. 
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PERIPH 
PERIPHERAL ASSEMBLY LANGUAGE 



PERIPH is identical to PAS except that it is run by the CPU rather 
than a PPU. 
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Card Image Records' - Second File Library Tape 

The following routines are listed in card image form in the 
second file on the library tape. Each routine is entered as one 
record. 



(00) 


Loader 


(34) 


PBC 


(68) 


TIME 


(01) 


DSD 


(35) 


BKSP 


(69) 


COPYSBF 


(02) 


MTR 


(36) 


COPY 


(70) 


RANF 


(03) 


CR 


(37) 


C0PYBF 


(71) 


_ 


(04) 


1AJ 


(38) 


COPYBR 


(72) 


_ 


(05) 


1BJ 


(39) 


COPYCF 


(73) 


_ 


(06) 


1DJ 


(40) 


COPYCR 


(74) 


_ 


(07) 


1LJ 


(41) 


REWIND 


(75) 


_ 


(08) 


1LT 


(42) 


VERIFY 


(76) 


_ 


(09) 


1TD 


(43) 


APRAB 


(77) 


XLOCF 


(10) 


2BD 


(44) 


ALOG 


(78) 


INPUTB 


(11) 


2BP 


(45) 


ALOG10 


(79) 


INPUTC 


(12) 


2BT 


(46) 


ATAN 


(80) 


OUTPTB 


(13) 


2DF 


(47) 


COS 


(81) 


OUTPTC 


(14) 


2DT 


(48) 


DVCHK 


(82) 


ENDFIL 


(15) 


2EF 


(49) 


END 


(83) 


REWINM 


(16) 


2LP 


(50) 


EXIT 


(84) 


BACKSP 


(17) 


2 PC 


(51) 


EXP 


(85) 


DISPLA 


(18) 


2RC 


(52) 


IBAIEX 


(86) 


007 


(19) 


2RD 


(53) 


IFENDF 


(87) 


RUN 


(20) 


2RT 


(54) 


OVERFL 






(21) 


2SD 


(55) 


PAUSE 






(22) 


2TJ 


(56) 


RBAIEX 






(23) 


2TS 


(57) 


RBAREX 






(24) 


2WD 


(58) 


REMARK 






(25) 


2WT 


(59) 


SIN 






(26) 


CIO 


(60) 


SQRT 






(27) 


CLL 


(61) 


SLITE 






(28) 


DIS 


(62) 


SLITET 






(29) 


DMP 


(63) 


SSWTCH 






(30) 


EXU 


(64) 


START 






(31) 


LBC 


(65) 


STOP 






(32) 


LOC 


(66) 


TAN 






(33) 


MSG 


(67) 


TANH 
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APPENDIX A 
CHIPPEWA OPERATING SYSTEM FLOW CHARTS 



BEGIN CIO 

BUFFER CONTROL ADDRESS 

IN INPUT REGISTER OF PPU 



CALL 2BP OVERLAY 
VERIFY ARGUMENTS 
READ BUFFER STATUS 
RESERVE FILE 



IS A READ FUNCTION REQUESTED ? 



YES 



> CIO REAO FUNCTION 



NO 



IS A WRITE FUNCTION REQUESTED ? 



YES 



> CIO WRITE FUNCTION 



NO 



IS A BACKSPACE FUNCTION REQUESTED ? 



YES 



IS FILE A DISK FILE ? 



NO 



IS FILE A DISK FILE ? 



YES 



CALL 2BD OVERLAY 
BACKSPACE OISK 



IS FILE A TAPE UNIT ? 



YES 



YES 



NO 



Call 2BT overlay 

BACKSPACE TAPE 



RESET FILE STATUS FOR REWIND 



$► IS FILE A TAPE UNIT ? 



NO 



YES 



SET READ MODE 
SET IN -OUT -FIRST 



CALL 2RT OVERLAY 
REWIND TAPE 



SET READ MODE <* 



RELEASE FILE 

STORE BUFFER STATUS 



RECALL CPU 



RELEASE PPU 



A- 1 





Enter cio reao function 






, , > 


' 












IS FILE A DISK FILE ? 


NU 




IS FILE A CARD READER ? 


YES 


call 2rc overlay 
Read cards 

EXIT 






: > 




\ 


YES 


NO 










NO 


HAS FILE BEEN USED ? 










\ 


YES 










' 


' 




Set file mark 

EXIT 




IS FILE A TAPE UNIT ? 


NO 












' 








CALL 2RD OVERLAY 
READ DISK DATA 




\ 


' 










CALL 2RT OVERLAY 
IS MODE BINARY ? 


NO 






IS TAPE TYPE MT ? 






Kin 




YES 




^ 


f 






YES 






EXIT 














v 


' 








READ BINARY TAPE 
























SET FILE MARK 




















> 


(■■ 




\ 


/• 






EXIT 




READ BCD TAPE 










\ 


1 














EXIT 





A-2 



Enter cio write function 



IS FILE A OISK FILE ? 



NO 



YES 



HAS FILE BEEN USED ? 



WAS LAST USE IN WRITE 
MODE ? 



YES 



Call 2DT overlay. 
Drop disk tracks. 



> IS A FILE MARK REQUESTED ? 



YES 



WAS LAST RECORD COMPLETEO ? 



NO 



YES 



IS THERE DATA IN THE BUFFER ? 



YES 



CALL 2WD OVERLAY «=" 

WRITE DISK DATA <- 



> EXIT 



5» IS FILE A CARD PUNCH? 



NO 



Call 2PC overlay 

PUNCH CARDS 
EXIT 



IS FILE A LINE PRINTER ? 



NO 



IS FILE A TAPE UNIT ? 



Call 2WT overlay 

IS A FILE MARK REQUESTED ? 



YES 



WAS LAST RECORD COMPLETED ? 



NO 



YES 



IS THERE DATA IN THE BUFFER ? 



YES 



IS TAPE TYPE MT p ^ 



IS MODE BINARY ? 



NO 



WRITE BCD DATA 



^j IS A FILE MARK REQUESTED ? |<- 
NO 



WRITE FILE MARK 



-> Exit 



CALL 2LP OVERLAY 

PRINT DATA 

EXIT 



> WRITE BINARY DATA 



A-3 



ENTER 2BP OVERLAY 



READ BUFFER STATUS 
READ BUFFER ARGUMENTS 



IS ARGUMENT REGION IN RANGE ? 



YES 



IS LIMIT OVER FIELD LENGTH ? 



YES 



NO 



IS OUT EQUAL OR GREATER THAN LIMIT ? 



YES 



NO 



IS IN EQUAL OR GREATER THAN LIMIT ? 



YES 



NO 



IS OUT LESS THAN FIRST ? 



YES 



NO 



IS IN LESS THAN FIRST ? 



IS FILE NAME IN VALID FORMAT ? 



YES 



IS FILE NAME IN FILE NAME TABLE (FNT) ? 



YES 



NO 



REQUEST CHANNEL 15 

IS THERE A BLANK ENTRY IN FNT ? 



NO 



RELEASE CHANNEL 15 
DAYFILE MESSAGE-FNT LIMIT. 
ABORT CONTROL POINT 
RELEASE PPU 



ENTER NAME IN FNT AND ENTER 
A NEW DISK FILE IN FST 
RELEASE CHANNEL 15 



W 



A. 



< 



^ 



A-4 



$ 



DAYFILE MESSAGE-BUFFER ARG ERROR 
ABORT CONTROL POINT 
RELEASE PPU 



® 



YES 



REQUEST CHANNEL 14 
IS FILE RESERVED ? 



NO 



RESERVE FILE. 
RELEASE CHANNEL 14 



EXIT 



RELEASE CHANNEL 14 
PAUSE FOR MONITOR 
READ RA 
IS ERROR FLAG SET ? 



NO 



YES 



RELEASE PPU 



ENTER 2RC OVERLAY 



IS END OF JOB FLAG SET ? 



YES 



NO 



CLEAR END OF JOB FLAG 

SET FILE MARK 

EXIT 



MODIFY OVERLAY FOR EQUIPMENT 
PARAMETERS 



DOES BUFFER HAVE ROOM FOR 
WORDS OF INPUT DATA ? 



r 



S» EXIT 



REQUEST CHANNEL FOR CARD READER 
READ EQUIPMENT STATUS. 
IS CARD READER READY ? 



NO 



RELEASE CHANNEL 

CONSOLE MESSAGE-READER NOT READY 



YES 



PAUSE FOR MONITOR 

READ RA 

IS ERROR FLAG SET ? 



YES 



RELEASE PPU 



NO 



REQUEST CHANNEL 
READ EQUIPMENT STATUS 
IS CARD READER READY ? 



READ ONE CARD 

RELEASE CHANNEL 

ADVANCE CARD COUNT IN FILE STATUS 

IS 789 PUNCHED IN COLUMN ONE ? 



NO 



YES 



CLEAR CONSOLE MESSAGE 



NO 



YES 



^ IS 6789 PUNCHED IN COLUMN ONE ? 



IS 79 PUNCHED IN COLUMN ONE ? 



YES 



> PROCESS BINARY CARD 



NO 



PROCESS HOLLERITH CARD 



YES 



WAS LAST RECORD COMPLETE ? 



YES 



UPDATE IN ADDRESS IN CENTRAL STORAGE 

PAUSE FOR MONITOR 

READ RA 

IS ERROR FLAG SET ? 



YES 



> RELEASE PPU 



YES 



IS BUFFER EMPTY ? 



SET END OF JOB FLAG < 



set end of record 
clear card count 
Exit 



set file mark 
clear card count 
Exit 
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2RC PROCESS BINARY CARD 








v 








DETERMINE NUMBER OF SIGNIFICANT 
COLUMNS FROM WORD COUNT IN COLUMN ONE 






v 


f 


IS THERE A CORRECTION PUNCH IN COLUMN ONE ? 


YES 












> 


NO 

t 








CLEAR CHECK SUM 

SET COLUMN INDEX TO COLUMN 2 










> 












ADO COLUMN TO CHECK SUM MODULO 4095 


















\ 












ADVANCE COLUMN INDEX 

WAS THIS THE LAST SIGNIFICANT COLUMN ? 


NO 




\ 












YES 




t 




v 






COPY SIGNIFICANT WORDS TO CIRCULAR BUFFER 
ADVANCE CIRCULAR BUFFER IN ADDRESS BY 
WORD COUNT 




IS CHECK SUM ZERO ? 


YES 










NO 






\ 












CONSOLE MESSAGE - BINARY CARD ERROR 

DELAY 4 SECONDS 

REQUEST CHANNEL FOR CARD READER 

READ STATUS 

RELEASE CHANNEL 

IS CARD READER READY ? 




> 


1 








EXIT 
























\ 


YES 




\ 


NO 

1 










PAUSE FOR MONITOR 

REAOER RA 

IS ERROR FLAG SET? 




EXIT 










* 






\ 


YES 




NG 

















































* THIS PATH PROVIDES AN OPPORTUNITY FOR THE OPERATOR TO REREAD THE FAULTY CARO 
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2RC PROCESS HOLLERITH CARD 


® 




v 




V 




SENSE TRAILING SPACES AND DETERMINE 
LAST SIGNIFICANT COLUMN 




IS THIS FIRST CHARACTER IN BYT 


c . NO 














YES 
/ 








1 




\ 




) 




TABLE LOOKUP FOR DISPLAY CODE 

STORE CHARACTER IN UPPER HALF OF BYTE 

ADVANCE COLUMN INOEX 

WAS THIS THE LAST SIGNIFICANT COLUMN ? 








SET COLUMN INDEX TO FIRST COLUMN 




NO 


































clear word buffer 






YES 














v 








M 








store woro in circular buffer 
advance circular buffer in address 
Did this word have data in last byte ? 


NO 








SET BYTE INDEX TO FIRST BYTE 
















> 


1 






YES 

v 








Clear character buffei 


*z ' 




STORE CLEARED WORD IN CIRCULAR BUFFER 
ADVANCE CIRCULAR BUFFER IN ADDRESS 














\ 


' 
















NO 


IS ROW 12 PUNCHED ? 


























EXIT 










\ 


YES 

f 


C I 




















ADD 60B TO CHARACTER 


















YES 


TABLE LOOKUP FOR DISPLAY CODE 

ADD CHARACTER IN LOWER HALF OF BYTE 

ADVANCE COLUMN INDEX 

WAS THIS THE LAST SIGNIFICANT COLUMN ? 
























3> 

NO 


IS ROW II PUNCHED ? 










> 


YES 

f 






NO 








ADD 40B TO CHARACTER 




NO 


ADVANCE BYTE INDEX 

WAS THIS THE LAST BYTE IN WORD ? 
































YES 






' =» 

NO 


IS ROW PUNCHED ? 






store word in circular buffer 
Clear word buffer 
set byte index to first byte 
advance circular buffer in address 








YES 

f 










> 












ADD 20B TO CHARACTER 












> 


1 


/ 














IS ROW 1 PUNCHED ? 


YES 


^^ 


CHARACTER 




















> 


NO 












IS ROW 2 PUNCHED ? 


YES 




CHARACTER 












































IS ROW 6 PUNCHED ? 


YES 


ADD IOB TO CHARACTER 














1 


' 






















IS ROW 3 PUNCHED ? 


YES 


^^ 


CHARACTER 


















> 


NO 

t 










IS ROW 4 PUNCHED ? 


YES 




CHARACTER 
















> 


NO 

1 








> 


1 










IS ROW 5 PUNCHEO ? 


YES 




CHARACTER 






IS ROW 9 PUNCHED ? 


YES 


ADD MB TO CHARACTER 


















> 


NO 












NO 
















IS ROW 6 PUNCHED ? 


YES 




CHARACTER - 


















> 


NO 

1 








® 




IS ROW 7 PUNCHED ? 


YES 


.^ . _ 


CHARACTER 


















> 


NO 

1 












IS ROW 8 PUNCHED ? 


YES .. 


» ADD IOB TO CHARACTER 
















> 


NO 

I 
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YES ^ 

























Enter 2RD overlay 
Disk file read 



MODIFY OVERLAY FOR 
EQUIPMENT PARAMETERS 



COMPUTE NUMBER OF SECTORS 
WHICH CAN BE LOADED INTO THE 
CIRCULAR BUFFER. 
IS NUMBER OF SECTORS ZERO ? 



YES 



5" EXIT 



NO 



HAS THIS FILE BEEN USED BEFORE ? 



NO 



YES 



SET FILE MARK 
EXIT 



REQUEST CHANNEL FOR DISK FILE 
POSITION DISK TO PROPER TRACK 



READ ONE SECTOR 
READ DISK STATUS 
IS PARITY OK ? 



REREAD SECTOR 
READ DISK STATUS 
IS PARITY OK ? 



YES 



IS CONTROL BYTE A NEW TRACK NUMBER ? <■ 



POSITION DISK TO NEW TRACK 



NO 



YES 



SELECT MARGIN I 
REREAD SECTOR 
READ DISK STATUS 
IS PARITY OK ? 



SELECT MARGIN Z 
REREAD SECTOR 
READ DISK STATUS 
IS PARITY OK ? 



YES 



YES 



NO 



NO 



DAYFILE MESSAGE - 
DISK PARITY ERROR 
GX TXXX SXXX 
Stop 



ADVANCE FILE STATUS FOR NEXT SECTOR 



STORE SECTOR DATA IN CIRCULAR BUFFER 

ADVANCE BUFFER IN ADDRESS 

IS THIS SECTOR A SHORT SECTOR ? 



SET END OF RECORD 
RELEASE CHANNEL 



NO 



YES 



IS THERE ROOM FOR ANOTHER SECTOR OF 
DATA IN THE CIRCULAR BUFFER ? 



RELEASE CHANNEL 



UPDATE CIRCULAR BUFFER IN ADDRESS 
IS DISK AT FILE MARK 7 



YES 



SET FILE MARK 



> EXIT 
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Enter 2RT overlay 
Binary tape read 



Modify overlay for 
equipment parameters 



IS THERE ROOM IN THE CIRCULAR 
BUFFER FOR A FULL BLOCK OF DATA ? 



NO 



> EXIT 



YES 



REQUEST CHANNEL FOR TAPE UNIT 



NO 



READ TAPE STATUS 
IS TAPE READY ? 



CONSOLE MESSAGE -TAPE XX NOT READY 

RELEASE CHANNEL 

PAUSE FOR MONITOR 

READ RA 

IS ERROR FLAG SET ? 



YES 



> RELEASE PPU 



YES 



CLEAR CONSOLE MESSAGE 

READ ONE BLOCK OF TAPE (ODD PARITY) 

IS LENGTH AN ODD FRACTION OF WORD ? 



YES 



YES 



IS LENGTH LESS THAN 4 BYTES ? 



READ TAPE STATUS 
WAS FILE MARK READ 



YES 



NO 



SET FILE MARK 
ADVANCE BLOCK COUNT 
RELEASE CHANNEL 
EXIT 



IS PARITY CHECK OK ? 



NO 



ADVANCE BLOCK COUNT 
RELEASE CHANNEL 



|—® 



HAS BLOCK BEEN READ 3 TIMES ? 



YES 



NO 



DAYFILE MESSAGE - 
TAPE XX PARITY ERROR 
RELEASE CHANNEL 
SET PAUSE BIT IN (RA) 



BACKSPACE TAPE ONE BLOCK 



PAUSE FOR MONITOR 

READ RA 

IS ERROR FLAG SET ? 



® 



NO 



YES 



> HAS PAUSE BIT BEEN CLEARED IN (RA) ? 



NO 



YES 



RELEASE PPU 



NO 



STORE DATA IN CIRCULAR BUFFER 
UPDATE BUFFER IN ADDRESS 
WAS BLOCK A SHORT BLOCK ? 



YES 



SET END OF RECORD 
EXIT 
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Enter 2RT overlay 

BCD TAPE READ 



MODIFY OVERLAY FOR 
EQUIPMENT PARAMETERS 



REQUEST CHANNEL FOR TAPE UNIT 



& 



READ TAPE STATUS 
IS TAPE UNIT READY ? 



CONSOLE MESSAGE-TAPE XX NOT READY 

RELEASE CHANNEL 

PAUSE FOR MONITOR 

READ RA 

IS ERROR FLAG SET ? 



YES 



RELEASE PPU 



Clear console message 

read one tape block (even parity) 

was a file mark read ? 



NO 



SET FILE MARK 
ADVANCE BLOCK COUNT 
RELEASE CHANNEL 
EXIT 



WAS BLOCK LENGTH LESS THAN 6 BYTES ? 



NO 



WAS PARITY CHECK OK ? 



HAS BLOCK BEEN READ 3 TIMES ? 



YES 



NO 



BACKSPACE TAPE ONE BLOCK 



<*> 



DAYFILE MESSAGE -TAPE XX PARITY ERROR 

RELEASE CHANNEL 

SET PAUSE BIT IN (RA) 



DETERMINE NUMBER OF 

SIGNIFICANT CHARACTERS IN 

OATA ELIMINATING TRAILING SPACES 



HAS PAUSE BIT BEEN CLEARED IN (RA) p 



NO 



PAUSE FOR MONITOR 

READ RA 

IS ERROR FLAG SET ? 



CONVERT CHARACTERS TO DISPLAY 
CODE BY TABLE LOOKUP 



YES 



RELEASE PPU 



COPY DATA INTO CIRCULAR BUFFER 
TO A BLANK LOWEST BYTE 



update buffer in address 
advance block count 
release channel 
Exit 
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ENTER 2RT OVERLAY 
REWIND TAPE 




NO 




YES 






\ 


' 










MODIFY OVERLAY FOR 
EQUIPMENT PARAMETERS 






> 


' 








REQUEST CHANNEL FOR TAPE UNIT 














CONSOLE MESSAGE-TAPE XX NOT READY 

RELEASE CHANNEL 

PAUSE FOR MONITOR 

READ RA 

IS ERROR FLAG SET ? 












RELEASE PPU 










\ 


' 


NO 








REAO TAPE UNIT STATUS 
IS TAPE UNIT READY ? 


















v 


YES 








IS UNLOAD REQUESTED ? 






\ 


NO 




. \ 


YES 










REWIND 




REWIND UNLOAD 








\ 


' > 


' 










RELEASE CHANNEL 
CLEAR BLOCK COUNT 
EXIT 
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Enter 2WD overlay 

WRITE DISK FILE 



MODIFY OVERLAY FOR EQUIPMENT PARAMETERS 



REQUEST CHANNEL FOR DISK FILE 



HAS THIS FILE BEEN USED BEFORE p 



NO 



YES 



REQUEST A NEW TRACK FROM MONITOR 
IS A TRACK AVAILABLE ? 



NO 



YES 



DAYFILE MESSAGE-DISK X TRACK LIMIT 
RELEASE CHANNEL 
ABORT CONTROL POINT 
RELEASE PPU 



POSITION DISK TO PROPER TRACK 
REQUEST A NEW TRACK FROM MONITOR 
IS A TRACK AVAILABLE ? 



NO 



YES 



DAYFILE MESSAGE- DISK X TRACK LIMIT 
WRITE END OF FILE SECTOR 
RELEASE CHANNEL 
ABORT CONTROL POINT 
RELEASE PPU 



IS THERE ENOUGH DATA IN THE CIRCULAR 
BUFFER FOR A FULL SECTOR ? 



NO 



IS AN END RECORD FUNCTION REQUESTED ? 



YES 



WRITE SECTOR ON DISK 

IS THIS THE LAST SECTOR ON THIS TRACK ? 



NO 



YES 



WRITE END OF FILE SECTOR 

DO NOT ADVANCE FILE STATUS FOR THIS SECTOR 
CALL MONITOR TO DROP SPARE TRACK 
RELEASE CHANNEL 



YES 



POSITION DISK TO NEW TRACK 
REQUEST A NEW TRACK FROM MONITOR 
IS A TRACK AVAILABLE ? 



NO 



NO 



YES 



DAYFILE MESSAGE- DISK X TRACK LIMIT 
WRITE END OF FILE SECTOR 
RELEASE CHANNEL 
ABORT CONTROL POINT 
RELEASE PPU 



UPDATE BUFFER CONTROL OUT ADDRESS 
EXIT 



WAS THIS SECTOR A SHORT SECTOR ? 



YES 



WRITE END OF FILE SECTOR 

DO NOT ADVANCE FILE STATUS FOR THIS SECTOR 
CALL MONITOR TO DROP SPARE TRACK 
RELEASE CHANNEL 



STORE BUFFER CONTROL IN = OUT = FIRST 
EXIT 



A-12 





ENTER 2WT OVERLAY 
WRITE BINARY TAPE 








\ 


t 








MODIFY OVERLAY FOR EQUIPMENT PARAMETERS 








\ 


1 








IS THERE ENOUGH DATA IN THE 














NO ^ 


IS AN END RECORD FUNCTION REQUESTED ? 


NO 


EXIT 






CIRCULAR BUFFER FOR A FULL BLOCK ? 
























YES 










1 \ 












N 


1 




CONSOLE MESSAGE-TAPE XX NOT READY 

RELEASE CHANNEL 

PAUSE FOR MONITOR 

READ RA 

IS ERROR FLAG SET ? 






REQUEST CHANNEL FOR TAPE UNIT 
READ TAPE STATUS 
IS TAPE READY ? 


^ NO 






NO 


YES 


RELEASE PPU 














YES 








\ 


1 










CLEAR CONSOLE MESSAGE 
WRITE DATA ON TAPE 
READ TAPE STATUS 
IS PARITY CHECK OK ? 








NO ^ 


RELEASE CHANNEL 
SET PAUSE BIT IN (RA) 
























N 


YES 

f 








N 


1 




NO 


Advance block count 
release channel 
update buffer out address 
was block a short block ? 






DAYFILE MESSAGE-TAPE XX WRITE PARITY ERROR 

PAUSE FOR MONITOR 

READ RA 

IS ERROR FLAG SET ? 










YES 


RELEASE PPU 








^ 










\ 


YES 

I 








> 


NO 








SET BUFFER IN = OUT=FIRST 
EXIT 




NO 


HAS PAUSE BIT BEEN CLEARED IN (RA) ? 


















YES 












\ 


' 








REQUEST CHANNEL FOR TAPE UNIT 
















BA 


CKSPACE TAPE 


ONE BLOCK 
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ENTER 2WT OVERLAY 
WRITE BCD TAPE 






























IS AN END RECORD REQUESTED ? 


NO 
















V 






\ 


YES 








MODIFY OVERLAY FOR EQUIPMENT PARAMETERS 




1 








V 






SET BUFFER IN*OUT» FIRST 


















IS THERE DATA IN THE CIRCULAR BUFFER ? 


NO 














V 










YES 




EXIT 
















\ 


' 










READ ONE WORD FROM CIRCULAR BUFFER 

convert display code to BCD code by table lookup 
Advance buffer OUT address 

IS LAST BYTE OF BUFFER WORD ZERO ? 












YES 


PAD LINE WITH SPACES TO 120 CHARACTERS 
























> 


NO 








NO 


- HAVE 120 CHARACTERS BEEN CONVERTED p 
















YES 










' > 












* 


' 




CONSOLE MESSAGE - TAPE XX NOT READY 

RELEASE CHANNEL 

PAUSE FOR MONITOR 

READ RA 

IS ERROR FLAG SET ? 






REQUEST CHANNEL FOR TAPE UNIT 
READ TAPE STATUS 
IS TAPE READY ? 


NO 




NO 






YES 


RELEASE PPU 












\ 


YES 

t 
















CLEAR CONSOLE MESSAGE 

WRITE ONE BLOCK (EVEN PARITY) 

READ TAPE STATUS 

IS PARITY CHECK OK ? 








NO 


RELEASE CHANNEL 

SET PAUSE BIT IN (RA) 
























YES 






N 


1 






> 


! 






DAYFILE MESSAGE -TAPE XX WRITE PARITY ERROR 

PAUSE FOR MONITOR 

READ RA 

IS ERROR FLAG SET ? 






ADVANCE BLOCK COUNT 

RELEASE CHANNEL 

UPDATE BUFFER OUT ADDRESS 




YES 








RELEASE PPU 
























\ 


NO 
f 








NU 


HAS PAUSE BIT BEEN CLEARED IN (RA) ? 


















\ 


YES 

1 










REQUEST CHANNEL FOR TAPE UNIT 














BA 


CKSPACE TAPE 


ONE 


BLOCK 
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ENTER 2WT OVERLAY 
WRITE FILE MARK 



MODIFY OVERLAY FOR EQUIPMENT PARAMETERS 



REQUEST CHANNEL FOR TAPE UNIT 
READ TAPE STATUS 
IS TAPE READY ? 



YES 



NO 



NO 



CONSOLE MESSAGE- TAPE XX NOT READY 

RELEASE CHANNEL 

PAUSE FOR MONITOR 

READ RA 

IS ERROR FLAG SET ? 



YES 



RELEASE PPU 



CLEAR CONSOLE MESSAGE 
WRITE FILE MARK 
ADVANCE BLOCK COUNT 
RELEASE CHANNEL 



EXIT 
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ENTER 2LP OVERLAY 
PRINT 



MODIFY OVERLAY FOR EQUIPMENT PARAMETERS 



®- 



IS THERE DATA IN THE CIRCULAR BUFFER ? 



NO 



YES 



READ ONE WORD FROM CIRCULAR BUFFER 
ADVANCE OUT ADDRESS 
COPY WORD TO PRINT LINE BUFFER 
IS LOWEST ORDER BYTE ZERO ? 



YES 



NO 



HAVE 130 CHARACTERS BEEN ASSEMBLED ? 



YES 



REQUEST CHANNEL FOR PRINTER <: 



READ PRINTER STATUS 
RELEASE CHANNEL 
PAUSE FOR MONITOR 
READ RA 
IS ERROR FLAG SET ? 



YES 



NO 



REQUEST CHANNEL FOR PRINTER 
IS PRINTER READY ? 



NO 



YES 



CLEAR CONSOLE MESSAGE 

IS THERE A ZERO IN COLUMN ONE ? 



YES 



NO 



(NEXT PAGE) 



IS AN END RECORD REQUESTED P 



NO 



YES 



SET BUFFER PARAMETERS IN = OUT = FIRST 



^ RELEASE PPU 



CONSOLE MESSAGE-PRINTER NOT READY 



PRINT LAST LINE AND ADVANCE PAPER 



READ PRINTER STATUS 
RELEASE CHANNEL 
PAUSE FOR MONITOR 
REAO RA 
IS ERROR FLAG SET ? 



YES 



NO 



REQUEST CHANNEL FOR PRINTER 
IS PRINTER READY ? 



NO 



YES 



CLEAR CONSOLE MESSAGE 
ADVANCE PAPER ONE LINE 



CONVERT CHARACTERS IN PRINT LINE BUFFER 
TO PRINTER COOE AND OUTPUT TO PRINTER 
RELEASE CHANNEL 
UPDATE CIRCULAR BUFFER OUT ADDRESS 
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->| EXIT 



^ RELEASE PPU 



> CONSOLE MESSAGE-PRINTER NOT READY 



(2LP CONTINUED) 



© 



IS THERE A ONE IN COLUMN ONE ? 



YES 



NO 



IS THERE A 4- IN COLUMN ONE ? 



YES 



PRINT LAST LINE ANO ADVANCE PAPER 



READ PRINTER STATUS 
RELEASE CHANNEL 
PAUSE FOR MONITOR 
READ RA 
IS ERROR FLAG SET ? 



YES 



NO 



REQUEST CHANNEL FOR PRINTER 
IS PRINTER READY P 



YES 



Clear console message 
page space paper 



CONVERT CHARACTERS IN PRINT LINE BUFFER 
TO PRINTER CODE ANO OUTPUT TO PRINTER 
RELEASE CHANNEL 
UPDATE CIRCULAR BUFFER OUT ADDRESS 



© 



^ PRINT LAST LINE AND DO NOT ADVANCE PAPER 



NO 



(!) 



(NEXT PAGE) 



READ PRINTER STATUS 
RELEASE CHANNEL 
PAUSE FOR MONITOR 
READ RA 
IS ERROR FLAG SET ? 



YES 



«=- 



NO 



REQUEST CHANNEL FOR PRINTER 
IS PRINTER READY ? 



YES 



CLEAR CONSOLE MESSAGE 

CONVERT CHARACTERS IN PRINT LINE BUFFER 

TO PRINTER CODE AND OUTPUT TO PRINTER 

RELEASE CHANNEL 

UPDATE CIRCULAR BUFFER OUT ADDRESS 



> RELEASE PPU 



> CONSOLE MESSAGE -PRINTER NOT READY 



> RELEASE PPU 



$» CONSOLE MESSAGE-PRINTER NOT READY 



© 
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(2LP CONTINUED) 



© 



IS THERE A 7X CODE IN COLUMN ONE ? 



YES 



PRINT LAST LINE AND ADVANCE PAPER 



NO 



PRINT LAST LINE AND ADVANCE PAPER 



READ PRINTER STATUS 
RELEASE CHANNEL 
PAUSE FOR MONITOR 
READ RA 
IS ERROR FLAG SET ? 



READ PRINTER STATUS 
RELEASE CHANNEL 
PAUSE FOR MONITOR 
READ RA 
IS ERROR FLAG SET ? 



YES 



RELEASE PPU 



NO 



YES 



^ RELEASE PPU 



NO 



REQUEST CHANNEL FOR PRINTER 
IS PRINTER READY ? 



REQUEST CHANNEL FOR PRINTER 
IS PRINTER READY ? 



YES 



CONSOLE MESSAGE - 
PRINTER NOT READY 



NO 



CONSOLE MESSAGE - 
PRINTER NOT READY 



SELECT PRINTER CARRIAGE CHANNEL X 



CLEAR CONSOLE MESSAGE 

CONVERT CHARACTERS IN PRINT LINE BUFFER 

TO PRINTER CODE AND OUTPUT TO PRINTER 

RELEASE CHANNEL 

UPDATE CIRCULAR BUFFER OUT ADDRESS 



(I) 
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Enter 2PC overlay 

PUNCH CARDS 



Modify overlay for equipment parameters 



IS THE CIRCULAR BUFFER IN A WRITE CODED MODE ? 



NO 



*® 



(NEXT PAGE) 



YES 



> CLEAR PUNCH BUFFER FOR 80 CHARACTERS 



IS THERE ANOTHER WORD IN THE CIRCULAR BUFFER ? 



NO 



^ IS A FILE MARK REQUESTED ? 



YES 



CONVERT WORD INTO 10 HOLLERITH CHARACTERS 
HAVE 80 CHARACTERS BEEN ASSEMBLED ? 



YES 



NO 



WAS LOWEST ORDER BYTE OF WORD ZERO P 



YES 



NO 



CLEAR CARD COUNT 

PUNCH 6789 CARD 

SET BUFFER PARAMETERS 

IN = OUT = FIRST 

Exit 



IS AN END RECORD REQUESTED ? 



YES 



NO 



CLEAR CARD COUNT 

PUNCH 789 CARD 

SET BUFFER PARAMETERS 

IN = OUT = FIRST 

EXIT 



EXIT 



REQUEST CHANNEL FOR PUNCH 
READ PUNCH STATUS 
RELEASE CHANNEL 
IS PUNCH READY ? 



NO 
HS — 



— =H 

NO 



CONSOLE MESSAGE -PUNCH NOT READY 

PAUSE FOR MONITOR 

READ RA 

IS ERROR FLAG SET ? 



> RELEASE PPU 



YES 



clear console message 
request channel for punch 
Punch one card 
release channel 



PAUSE FOR MONITOR 

READ RA 

IS ERROR FLAG SET 



YES 



S> RELEASE PPU 



NO 



UPDATE BUFFER OUT ADDRESS 
ADVANCE CARD COUNT 
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(2PC OVERLAY CONTINUED) 



© 



IS THE CIRCULAR BUFFER IN A WRITE BINARY MODE ? 



NO 



YES 



SET BUFFER PARAMETERS IN* OUT 'FIRST 
EXIT 



^ IS THERE ENOUGH DATA FOR A FULL CARD ? 



NO 



IS AN END RECORD REQUESTED P 



> IS A FILE MARK REQUESTED P 



YES 



IS THERE DATA IN THE BUFFER ? 



NO 



PUNCH 


789 CARD 








SET BUFFER 


PARAMETERS 


IN 


= OUT 


■FIRST 


Clear 


CARD 


COUNT 








EXIT 













NO 



3> Exit 



YES 



Punch 6789 card 

set buffer parameters in -out "first 

Clear card count 

Exit 



clear punch buffer for 15 woros 

transfer oata to punch buffer 

Enter card length in column one 

enter sum of data bytes modulo 4095 in column two 

Advance card count 

enter card count in column 80 



REQUEST CHANNEL FOR PUNCH 
READ PUNCH STATUS 
RELEASE CHANNEL 
IS PUNCH READY ? 



NO 
< 



— 3H 
NO 



CONSOLE MESSAGE -PUNCH NOT READY 

PAUSE FOR MONITOR 

READ RA 

IS ERROR FLAG SET P 



YES 



> RELEASE PPU 



YES 



CLEAR CONSOLE MESSAGE 
REQUEST CHANNEL FOR PUNCH 
PUNCH ONE CARD 
RELEASE CHANNEL 



UPDATE BUFFER OUT ADDRESS 

PAUSE FOR MONITOR 

READ RA 

IS ERROR FLAG SET ? 



YES 



$« RELEASE PPU 
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2BD OVERLAY 
BACKSPACE DISK 



WAS LAST REFERENCE A FILE MARK ? 



set circular buffer in= out = first 
Exit 



MODIFY OVERLAY FOR EQUIPMENT PARAMETERS 



IS A BINARY BACKSPACE REQUESTED ? 



YES 



> BACK ONE SECTOR <: 



NO 



SET FIRST REFERENCE FLAG 



& 



BACK ONE SECTOR 



5» COMPUTE D = IN-OUT 



5» IS NEXT SECTOR THE FIRST SECTOR IN THE FILE ? 



REQUEST CHANNEL FOR DISK 
POSITION DISK 
READ ONE SECTOR 
RELEASE CHANNEL 



NO 



Back one sector 



IS sector a short sector ? 



request channel for disk 
Position disk to next sector 
read one sector 
release channel 



YES 



SET CIRCULAR BUFFER IN = OUT = FIRST 
EXIT 



IS SECTOR LENGTH GREATER THAN D ? 



YES 



SET OUT = FIRST + SECTOR LENGTH - D 

SET IN = FIRST + SECTOR LENGTH 

STORE SECTOR IN CIRCULAR BUFFER BEGINNING AT FIRST 



NO 



DECREASE D BY SECTOR LENGTH 



BACK ONE SECTOR 



DOES OUT = FIRST ? 



YES 



IS FIRST REFERENCE FLAG SET ? 



NO 



YES 



CLEAR FLAG 



OUT = OUT - 

W~ 



NO 



DOES (OUT - I ) CONTAIN A BLANK LOWEST BYTE ? «S- 



YES 



update circular buffer in and out addresses 
Exit 



*© 
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2bd subroutine 
Back one sector 



IS next sector the first sector of a track P 



YES 



HOLD CURRENT TRACK NUMBER N 



IS N THE FIRST TRACK FOR THE FILE P 



YES 



NO 



REWIND DISK FILE 

REQUEST CHANNEL FOR DISK FILE 



POSITION DISK TO NEXT SECTOR 



READ ONE SECTOR 

IS THIS THE LAST SECTOR IN THIS TRACK ? 



NO 



YES 



IS NEXT TRACK NUMBER N P 



YES 



RELEASE CHANNEL 
EXIT 



reduce sector number one count 
Exit 



Exit 
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2BT OVERLAY 
BACKSPACE TAPE 








v 








MODIFY OVERLAY FOR EQUIPMENT PARAMETERS 








V 












IS A BINARY BACKSPACE REQUESTED p 


YES 


BACK ONE BLOCK 


















NO 

V 






V 








YtS 


■ IS TAPE UNIT TYPE WT ? 




BACK ONE BLOCK 


















NO 






V 










BACK ONE BLOCK 




READ ONE BLOCK 












\ 


' 








\f 












set circular buffer in = out = first 

Exit 




IS BLOCK A SHORT BLOCK ? 


NO 
















YES 












>' 












SET CIRCULAR BUFFER IN = OUT = FIRST 
EXIT 








SET FIRST REFERENCE FLAG 
















> 


l 










© 


^ 


COMPUTE D = IN-OUT 












\ 


' 








^ 


BACK ONE BLOCK 














\ 


' 








Read one block 








1 














IS BLOCK A FILE MARK ? 


YES 


BACK ONE BLOCK 
















NO 






\ 


' 












SET CIRCULAR BUFFER IN = OUT 'FIRST 
EXIT 




















N 


' 




SET OUT = FIRST + BLOCK LENGTH - D 

SET IN * FIRST + BLOCK LENGTH 

STORE BLOCK IN CIRCULAR BUFFER BEGINNING AT FIRST 








IS BLOCK LENGTH GREATER THAN D ? - 


YES 
















NO 










^ 


' 














REDUCE D BY BLOCK LENGTH 




\ 


1 










DOES OUT « FIRST 


■ YES ^/ 












> 


bH 






^ 


/ 








NO 








Back one block 






\ 


' 










IS FIRST REFERENCE FLAG SET ? 


NO 
















\ 


YES 

f 










CLEAR FLAG 








> 


1 








OUT = OUT - 1 












/ 


\ 
NO 








DOES (OUT - 1) CONTAIN A BLANK LOWEST BYTE ? 










\ 


YES 

( 
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UPDATE CIRCULAR BUFFER IN AND OUT AODRESSES 
EXIT 







2BT SUBROUTINE 
BACK ONE BLOCK 




YES 






\ 


f 












IS TAPE POSITIONED AT BEGINNING 
OF FIRST BLOCK ON TAPE ? 




SET CIRCULAR BUFFER IN=OUT= FIRST 
EXIT FROM OVERLAY 






NO 








NO 

/ 












> 




CONSOLE MESSAGE -TAPE XX NOT READY 

RELEASE CHANNEL 

PAUSE FOR MONITOR 

READ RA 

IS ERROR FLAG SET ? 


YES 






REDUCE BLOCK COUNT 

REQUEST CHANNEL FOR TAPE UNIT 

READ TAPE STATUS 

IS TAPE READY ? 








> 


RELEASE PPU 






— ■> 
















YES 






NO ^ 
y NO 










N 


' 




YES 


REQUEST CHANNEL FOR TAPE UNIT 
READ TAPE STATUS 
IS TAPE READY P 








BACKSPACE TAPE 


_^ 


























\ 


t 














RELEASE CHANNEL 
PAUSE FOR MONITOR 
READ RA 
IS ERROR FLAG SET ? 


YES 














RELEASE PPU 
































NO 

t 












EXIT 







2BT SUBROUTINE 
READ ONE BLOCK 



REQUEST CHANNEL FOR TAPE UNIT 
READ TAPE STATUS 
IS TAPE READY ? 



NO 



YES 



CONSOLE MESSAGE- TAPE XX NOT READY 

RELEASE CHANNEL 

PAUSE FOR MONITOR 

READ RA 

IS ERROR FLAG SET ? 



READ TAPE 

IS PARITY CHECK OK ? 



K — 

NO 



YES 



NO 



YES 



> RELEASE PPU 



NO 



REQUEST CHANNEL FOR TAPE UNIT 
READ TAPE STATUS 
IS TAPE READY ? 



release channel 
advance block count 
Exit 



^ WAS A FILE MARK REAO ? 



YES 



release channel 
advance block count 
Exit 



HAS BLOCK BEEN READ 3 TIMES ? 



YES 



NO 



DAYFILE MESSAGE - TAPE XX PARITY ERROR 
RELEASE CHANNEL 
ABORT CONTROL POINT 
RELEASE PPU 



BACKSPACE TAPE 
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2df overlay 

drop file 

File name in 40/44 



SEARCH FNT FOR NAME 
IS FILE NAME IN FNT ? 



NO 



^ EXIT 



YES 



READ FILE STATUS 

IS AN EQUIPMENT ASSIGNED ? 



YES 



> REQUEST MONITOR DROP EQUIPMENT 



NO 



1 ± 



IS FILE IN COMMON STATUS ? 



YES 



NO 



RELEASE COMMON FILE 
EXIT 



IS FILE A DISK FILE ? 



YES 



HAS FILE BEEN USED P 



CLEAR FILE STATUS 
CLEAR FNT ENTRY 
EXIT 



YES 



MODIFY OVERLAY FOR EQUIPMENT PARAMETERS 



REQUEST CHANNEL FOR DISK FILE 
REWINO FILE 



POSITION DISK TO NEXT TRACK 
REQUEST MONITOR RELEASE TRACK 



READ NEXT DISK SECTOR 
IS SECTOR A FILE MARK ? 



YES 



NO 



YES 



RELEASE CHANNEL 
CLEAR FILE STATUS 
CLEAR FNT ENTRY 
EXIT 



IS SECTOR THE LAST SECTOR IN THIS TRACK ? 
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2DT OVERLAY 
DROP DISK TRACKS 
FILE STATUS IN 20/24 



MODIFY OVERLAY FOR EQUIPMENT PARAMETERS 



HAS FILE BEEN USED ? 



NO 



> EXIT 



YES 



HOLD CURRENT TRACK NUMBER AND SECTOR NUMBER 
REQUEST CHANNEL FOR OISK FILE 



^ Position disk for next sector 



READ NEXT SECTOR 

IS SECTOR A FILE MARK ? 

x — 



NO 



RELEASE CHANNEL 

RESTORE TRACK AND SECTOR NUMBER 

EXIT 



IS SECTOR THE LAST SECTOR 
IN THIS TRACK ? 



YES 



REQUEST MONITOR RELEASE NEXT TRACK 
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2EF OVERLAY 
PROCESS ERROR FLAG 



CLEAR ERROR FLAG AT THE CONTROL POINT 



IS A TIME LIMIT INDICATED ? 



YES 



NO 



IS AN ARITHMETIC ERROR INDICATED ? -^- 



IS A PPU CALL ERROR INDICATED ? 



YES 



NO 



IS AN OPERATOR DROP INDICATED ? 



YES 



NO 



IS A TRACK LIMIT INDICATED P 



YES 



NO 



2» READ NEXT CONTROL STATEMENT <£ 



IS STATEMENT A BLANK ? 



YES 



NO 



IS STATEMENT AN EXIT ? 



YES 



ADVANCE TO NEXT CONTROL STATEMENT 
EXIT 



3» DAYFILE MESSAGE -TIME LIMIT. 



OAYFILE MESSAGE -ARITH. ERROR. 



^ DAYFILE MESSAGE- PP CALL ERROR. 



S» DAYFILE MESSAGE -OPERATOR DROP. 



DAYFILE MESSAGE -TRACK LIMIT. 



EXIT 
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2TJ OVERLAY 
TRANSLATE JOB NAME 



ARE THERE MORE THAN 95 WORDS IN THE CIRCULAR BUFFER ? 



NO 



READ FIRST CONTROL CARD 



assemble alphanumeric word to separator 
Does word exceed 7 characters ? 



YES 



is first character a letter ? 



YES 



store word as name of job 



_i 



Was separator a blank P 



NO 



ASSEMBLE NEXT ALPHANUMERIC WORD TO SEPARATOR 
DOES WORD EXCEED 7 CHARACTERS ? 



YES 



CONVERT OCTAL CHARACTERS TO BINARY 
ARE LOWEST ORDER 4 BITS ZERO ? 



NO 



STORE LOWEST ORDER 4 BITS AS PRIORITY 



WAS SEPARATOR A BLANK ? 



NO 



ASSEMBLE NEXT ALPHANUMERIC WORD TO SEPARATOR 
DOES WORD EXCEEO 7 CHARACTERS ? 



YES 



NO 



CONVERT OCTAL CHARACTERS TO BINARY 

ROUND UP LAST OCTAL DIGIT 

STORE LOWEST ORDER 5 OCTAL DIGITS AS TIME LIMIT 



IS TIME LIMIT ZERO ? 



YES 



NO 



WAS SEPARATOR A BLANK ? 



YES 



NO 



ASSEMBLE NEXT ALPHANUMERIC WORD TO SEPARATOR 
DOES WORD EXCEED 7 CHARACTERS ? 



YES 



NO 



CONVERT OCTAL CHARACTERS TO BINARY 

ROUND UP LAST TWO OCTAL DIGITS 

STORE LOWEST ORDER 17 BITS AS FIELD LENGTH 



IS FIELD LENGTH ZERO ? 



YES 



NO 



CLEAR PPU TIME CHARGES TO CONTROL POINT 
EXIT 
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DAYFILE MESSAGE -TOO MANY CONTROL CARDS 
RELEASE PPU 



DAYFILE MESSAGE - JOB CARD ERROR 
RELEASE PPU 



SET PRIORITY 1 






SET 


TIME 


LIMIT 


ONE 


MINUTE 


SET 


FIELD 


LENGTH 


40000 


Exit 











DAYFILE MESSAGE -JOB CARD ERROR 
RELEASE PPU 



SET PRIORITY I. 

SET TIME LIMIT ONE MINUTE 

SET FIELD LENGTH 40000 

EXIT 



SET 


time 


LIMIT 


ONE MINUTE 


SET 


FIELO 


LENGTH 


40000 


Exit 











DAYFILE MESSAGE - JOB CARD ERROR 
RELEASE PPU 



^ SET TIME LIMIT ONE MINUTE 



set field length 40000 
Exit 



DAYFILE MESSAGE - JOB CARD ERROR 
RELEASE PPU 



SET FIELD LENGTH 40000 
EXIT 



2TS OVERLAY 

TRANSLATE CONTROL STATEMENT 



READ NEXT CONTROL STATEMENT 
IS STATEMENT A BLANK ? 



NO 



IS FIRST WORD ASSIGN ? 



NO 



NEXT PAGE 



YES 



YES 



» EXIT 



ASSEMBLE NEXT ALPHANUMERIC WORD TO SEPARATOR 
DOES WORD EXCEED 7 CHARACTERS ? 



YES 



NO 



IS WORD A BLANK P 



YES 



NO 



STORE WORD AS EQUIPMENT TYPE DESIGNATION 



ASSEMBLE NEXT ALPHANUMERIC WORD TO SEPARATOR 
DOES WORD EXCEED 7 CHARACTERS ? 



YES 



NO 



IS WORD A BLANK P 



YES 



YES 



NO 



STORE WORD AS FILE NAME 

REQUEST MONITOR ASSIGN EQUIPMENT TYPE DESIGNATED 

WAS AN EQUIPMENT ASSIGNED P 



NO 



CONSOLE MESSAGE -WAITING FOR XX 
RELEASE PPU 



> CLEAR OPERATOR ASSIGNED EQUIPMENT NUMBER 



REQUEST FNT CHANNEL 

IS THERE A BLANK ENTRY IN FNT ? 



NO 



YES 



ENTER FNT WITH NAMED LOCAL FILE 

RELEASE CHANNEL 

ENTER EQUIPMENT NUMBER IN FILE STATUS WORD 

SET FILE STATUS TO NEW FILE 



ISSUE STATEMENT TO DAYFILE 
ADVANCE STATEMENT ADDRESS 



DAYFILE MESSAGE - (XX ASSIGNED) 



RELEASE PPU 
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Error exit 




->{ ERROR EXIT 



RELEASE CHANNEL 

REQUEST MONITOR RELEASE EQUIPMENT 
CONSOLE MESSAGE -WAIT FNT SPACE 
RELEASE PPU 



(2TS CONTINED) 



NO 



IS FIRST WORD COMMON ? 



YES 



ASSEMBLE NEXT ALPHANUMERIC WORD TO SEPARATOR 
DOES WORD EXCEED 7 CHARACTERS ? 



YES 



NO 




ERROR EXIT 



REQUEST FNT CHANNEL 

SEARCH FNT FOR ASSEMBLED NAME 

IS THERE AN AVAILABLE COMMON FILE IN FNT WITH THIS NAME ? 



NO 



IS THERE A FILE ASSIGNED TO THIS 
CONTROL POINT WITH THIS NAME ? 



YES 



NO 



RELEASE FNT CHANNEL 

CONSOLE MESSAGE- WAITING FOR COMMON FILE 

RELEASE PPU 



IS FIRST WORD RELEASE ? 



NO 



( NEXT PAGE ) <r 



YES 



Assemble next alphanumeric word to separator 
does word exceed 7 characters ? 



SEARCH FNT FOR A COMMON FILE ASSIGNED 
TO THIS CONTROL POINT WITH THIS NAME 
IS THERE SUCH A FILE ? 



YES 



CHANGE FILE STATUS TO LOCAL FILE 



ISSUE STATEMENT TO DAYFILE 
ADVANCE STATEMENT ADDRESS 
RELEASE PPU 



IS FILE A DISK FILE ? 



NO 



REQUEST MONITOR ASSIGN 
EQUIPMENT TO CONTROL POINT 
WAS EQUIPMENT ASSIGNED ? 



YES 



NO 



CONSOLE MESSAGE- WAITING FOR XX 
RELEASE FNT CHANNEL 
RELEASE PPU 



ASSIGN FILE TO CONTROL 
POINT IN COMMON STATUS 
RELEASE FNT CHANNEL 



ISSUE STATEMENT TO DAYFILE 
ADVANCE STATEMENT ADDRESS 
RELEASE PPU 




ERROR EXIT 
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( 2TS CONTINUED) 



IS FIRST WORD EXIT ? 



YES 



IS FIRST WORD REQUEST ? 



YES 



IS FIRST WORD MODE ? 



YES 



NO 



IS FIRST WORD SWITCH ? 



NO 
(NEXT PAGE) 



YES 



> EXIT FROM OVERLAY 



assemble next alphanumeric word to separator 
Does word exceed 7 characters ? 



YES 



NO 



HAS OPERATOR ASSIGNED AN EQUIPMENT ? 



YES 



Clear operator assignment 

request fnt channel 

is there a blank entry in the fnt ? 



YES 



NO 



release fnt channel 
request monitor release equipment 
console message -wait fnt space 
release ppu 



DISPLAY STATEMENT AS CONSOLE MESSAGE 
RELEASE PPU 



ASSEMBLE NEXT ALPHANUMERIC WORD TO SEPARATOR 
DOES WORD EXCEED 7 CHARACTERS ? 



YES 



NO 



REQUEST MONITOR ASSIGN EXIT MODE 
AS INDICATED BY ASSEMBLED DIGIT 



ISSUE STATEMENT TO DAYFILE 
ADVANCE STATEMENT ADDRESS 
RELEASE PPU 



ASSEMBLE NEXT ALPHANUMERIC WORD TO SEPARATOR 
DOES WORD EXCEED 7 CHARACTERS ? 



YES 



NO 



IS WORO A DIGIT BETWEEN I AND 6 ? 



NO 



YES 



SET SENSE SWITCH IN (RA) AS INDICATED 



ISSUE STATEMENT TO DAYFILE 
ADVANCE STATEMENT ADDRESS 
RELEASE PPU 




ERROR EXIT 



ENTER ASSEMBLED NAME AS LOCAL FILE IN FNT 
ENTER EQUIPMENT NUMBER IN FILE STATUS WORO 
SET FILE STATUS TO NEW FILE 
RELEASE FNT CHANNEL 



ISSUE STATEMENT TO DAYFILE 
ADVANCE STATEMENT ADDRESS 



DAYFILE MESSAGE -(XX ASSIGNED) 
RELEASE PPU 




->( ERROR EXIT 




->( Error Exit 
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(2TS CONTINUEO) 



SEARCH FNT FOR AN ASSIGNEO FILE WHOSE 
NAME AGREES WITH THE FIRST WORD 
IS THERE SUCH A FILE ASSIGNED TO THIS 
CONTROL POINT ? 



YES 



DOES THIS FILE HAVE AN ASSIGNED EQUIPMENT ? 



NO 



YES 



NO 



REQUEST CHANNEL ZERO 

POSITION DISK TO FIRST SECTOR OF FILE 

READ FILE INTO CENTRAL STORAGE BEGINNING AT RA 

UNTIL END OF RECORD OR FIELD LENGTH IS REACHED 

RELEASE CHANNEL 



(A> 



clear exchange area for control point 

set program address to lowest 6 bits of (ra+ i) + 3 

store field length in ao 



SET RA + 2 AS NEXT ARGUMENT ADDRESS 
CLEAR (RA) AND (RA + I) 



YES 



IS THE NEXT CHARACTER IN THE CONTROL STATEMENT 
A PERIOD OR A CLOSED PARENTHESIS ? 



NO 



ASSEMBLE NEXT ALPHANUMERIC WORD TO SEPARATOR 
DOES WORD EXCEED 7 CHARACTERS P 



NO 




Error Exit 



Store word in next argument position left justifieo 
advance argument aodress 



YES 



IS RSS FLAG SET IN PPU INPUT REGISTER ? 



NO 



REQUEST CENTRAL PROCESSOR TO BEGIN EXECUTION PROGRAM 



ISSUE STATEMENT TO DAYFILE 
ADVANCE STATEMENT ADDRESS 
RELEASE PPU 



SEARCH CLD FOR A PROGRAM WHOSE 
NAME AGREES WITH THE FIRST WORD 
IS THERE SUCH A PROGRAM ? 



NO 
(NEXT PAGE) 



YES 



REQUEST CHANNEL ZERO 

POSITION DISK TO FIRST SECTOR OF PROGRAM 

READ PROGRAM INTO CENTRAL STORAGE BEGINNING AT RA 

UNTIL END OF RECORD OR FIELD LENGTH IS REACHED 

RELEASE CHANNEL 
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X 



(2TS CONTINUED) 



SEARCH PLD FOR A PERIPHERAL PACKAGE 
WHOSE NAME AGREES WITH THE FIRST WORD 
IS THERE SUCH A PACKAGE ? 




YES 



> Does the package name begin with a letter ? 



NO 



ISSUE STATEMENT to oayfile 

DAYFILE MESSAGE - CONTROL CARD ERROR 

SET ERROR FLAG 

ADVANCE STATEMENT ADDRESS 

RELEASE PPU 



NO 



YES 



Assemble octal digits to separator 
is separator a comma ? 



YES 



ENTER ASSEMBLED NUMBER IN PP RECALL 
REGISTER BIT POSITIONS 18 THRU 35 



ASSEMBLE OCTAL DIGITS TO SEPARATOR 



Enter assembled number in lowest 
18 bits of pp recall register 



Enter package name and control 
point number in pp recall register 
issue statement to dayfile 
Advance statement address 
release ppu 
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2sd overlay 
Search oayfile 



READ JOB NAME FROM CONTROL POINT AREA 



^ IS CIRCULAR BUFFER EMPTY ? 



YES 



NO 



SET IN = OUT = FIRST 

Has dayfile reached end record ? 



NO 



-> EXIT 



IS BROKEN MESSAGE FLAG SET ? 



YES 



YES 



NO 



IS NEXT WORD THIS JOB NAME ? 



NO 



COPY WORD TO PERIPHERAL BUFFER 

ADVANCE OUT AODRESS 

DO NOT ADVANCE PERIPHERAL BUFFER 



set broken message flag 
Advance peripheral buffer 



COPY WORD TO PERIPHERAL BUFFER 
ADVANCE PERIPHERAL BUFFER 



Request monitor assign pp time to control point 
convert time to decimal seconds 

DAYFILE MESSAGE -PP XXXX SEC. 



Enter page space as first entry in circular buffer 
Copy peripheral buffer to circular buffer 
add message -pp xxxx sec- to circular buffer 
Copy date line to circular buffer 
Add page space to circular buffer 
update in address 



IS LOWEST) BYTE OF WORD CLEARED P 



/ 



YES 



CLEAR BROKEN MESSAGE FLAG 



- ADVANCE OUT ADDRESS 
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IAJ PACKAGE 
ADVANCE JOB 



READ REFERENCE ADDRESS AND FIELD 
LENGTH FROM CONTROL POINT 



IS ERROR FLAG SET ? 



YES 



CALL 2EF OVERLAY 



CALL 2TS OVERLAY >^ 



Does control point have zero priority ? 



NO 



YES 



SEARCH FNT FOR ASSIGNED FILE 

IS THERE A FILE ASSIGNED TO THIS CONTROL POINT ? 



NO 



CALL 2DF OVERLAY 



-3* 



SEARCH EST FOR ASSIGNED EQUIPMENT 

IS THERE AN EQUIPMENT ASSIGNED TO THIS CONTROL POINT ? 



NO 



YES 



REQUEST MONITOR RELEASE EQUIPMENT 



REQUEST MONITOR RELEASE CENTRAL STORAGE 
PAUSE FOR MONITOR 



IS FIELD LENGTH ZERO ? 



Clear control point area 
release ppu 



MA 
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BEGIN SEARCH OF CENTRAL STORAGE FOR OUTPUT BUFFER 
SET INITIAL ADDRESS TO RA + 2 



DOES NEXT WORD HAVE A CLEARED UPPER BYTE ? ^ 



DOES NEXT WORD HAVE LOWEST 18 BITS CLEARED ? 



YES 



NO 



DOES LOWEST 18 BITS EXCEED FIELD LENGTH ? 



YES 



IS CONTROL WORD AT THIS 18 
BIT ADDRESS NAMED OUTPUT p 



ADVANCE SEARCH ADDRESS 

HAS SEARCH REACHED RA + IOOB ? 



YES 



> DOES CONTROL WORD CONTAIN A FILE MARK STATUS ? 



YES 



NO 



SET CONTROL WORD STATUS TO REQUEST FILE MARK 



CALL 2BP OVERLAY 



IS THIS FILE ON DISK ? 



NO 



NO 



YES 



HAS FILE BEEN USED ? 



YES 



IS FILE IN READ MODE ? 



NO 



CALL 2WD OVERLAY 



UPDATE FILE STATUS 
UPDATE BUFFER STATUS 



READ CP TIME FROM CONTROL POINT AREA 

CONVERT TIME TO DECIMAL SECONDS AND MILLISECONDS 

DAYFILE MESSAGE - CP XXXX.XXX SECONDS 



READ PP TIME FROM CONTROL POINT AREA 

CONVERT TIME TO DECIMAL SECONDS AND MILLISECONDS 

DAYFILE MESSAGE - PP XXXX.XXX SECONDS 



( NEXT PAGE ) 



(IAJ PACKAGE CONTINUED) 



YES 



DOES FNT CONTAIN AN OUTPUT FILE ASSIGNED TO THIS CONTROL POINT ? 



REQUEST FNT CHANNEL 

IS THERE A BLANK ENTRY IN FNT ? 



NO 



■3* RELEASE FNT CHANNEL n 



YES 



ENTER AN OUTPUT FILE FOR THIS CONTROL POINT 
RELEASE FNT CHANNEL 



3» IS FILE ASSIGNED TO DISK ? 



NO 



YES 



Rewind file 

replace output file name with job name and priority 

Release file from control point 



Call 2DF overlay 



YES 



SEARCH FNT FOR ASSIGNED FILE 

IS THERE A FILE ASSIGNED TO THIS CONTROL POINT ? 



REQUEST MONITOR RELEASE EQUIPMENT 



YES 



NO 



SEARCH EST FOR ASSIGNED EQUIPMENT 

IS THERE AN EQUIPMENT ASSIGNED TO THIS CONTROL POINT ? 



NO 



CLEAR CONTROL POINT AREA 
CALL IBJ PACKAGE TO THIS PPU 
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IBJ PACKAGE 
BEGIN JOB 



READ REFERENCE ADDRESS AND FIELD LENGTH 
IS ERROR FLAG SET ? 



YES 



M 



RELEASE PPU 



NO 



IS PRIORITY ZERO ? 



YES 



REQUEST FNT CHANNEL 

SEARCH FNT FOR HIGHEST PRIORITY UNASSIGNED INPUT FILE 

IS THERE AN UNASSIGNED INPUT FILE ? 



YES 



NO 



REQUEST MONITOR ASSIGN JOB PRIORITY 
ENTER JOB NAME IN CONTROL POINT AREA 
CHANGE FILE TYPE TO ASSIGNED LOCAL FILE 
CHANGE FILE NAME TO INPUT 
RELEASE FNT CHANNEL 



RELEASE FNT CHANNEL 
ENTER JOB NAME NEXT 
CONSOLE MESSAGE -IDLE 
ENTER PP RECALL 
RELEASE PPU 



HAVE JOB CARDS BEEN LOADED ? < 



NO 



REQUEST MONITOR ASSIGN 300 B WORDS OF STORAGE 



WAS STORAGE ASSIGNED ? 



NO 



YES 



CONSOLE MESSAGE -WAITING FOR STORAGE 
ENTER PP RECALL 
RELEASE PPU 



CLEAR CONTENTS OF RA.RA+I.RA+2 

ENTER BUFFER CONTROL WORDS FOR INPUT FILE AT RA+3 THRU RA+7 



CALL 2BP OVERLAY 



CALL 2RD OVERLAY 



UPDATE INPUT FILE STATUS 

READ DATA FROM CIRCULAR BUFFER TO PERIPHERAL STORAGE 

COPY DATA FROM PERIPHERAL STORAGE TO CONTROL POINT AREA 

SET NEXT STATEMENT LOCATOR IN CONTROL POINT AREA TO INITIAL VALUE 



CALL 2TJ OVERLAY 



REQUEST MONITOR ASSIGN TIME LIMIT 

ENTER FIELD LENGTH FOR JOB IN 3RD BYTE OF PPU INPUT REGISTER 



» REQUEST MONITOR ASSIGN STORAGE FOR JOB FIELD LENGTH 



WAS STORAGE ASSIGNED ? 



NO 



YES 



CONSOLE MESSAGE- WAITING FOR STORAGE 
ENTER PP RECALL 
RELEASE PPU 



ISSUE JOB CARD AS DAYFILE MESSAGE 
RELEASE PPU 



A-fe* 
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idj package 
Phase 3 print 



READ REFERENCE ADDRESS AND FIELD LENGTH FROM CONTROL POINT AREA 



IS ERROR FLAG SET P 



YES 



IS FIELD LENGTH 4000B WORDS ? 



NO 



YES 



enter circular buffer address (0003) in ppu input register 
Clear ra thru ra + 2 



YES 



IS LP EQUIPMENT NUMBER IN THIRD BYTE OF PPU INPUT REGISTERS ? 



NO 



REQUEST MONITOR ASSIGN LP EQUIPMENT TO CONTROL POINT 
WAS EQUIPMENT ASSIGNED P 



YES 



ENTER EQUIPMENT NUMBER IN THIRD BYTE OF PPU INPUT REGISTER 



^ MODIFY PACKAGE FOR EQUIPMENT PARAMETERS 



& 



ENTER JOB NAME -PRINT 
CONSOLE MESSAGE -IDLE 



REQUEST FNT CHANNEL 

SEARCH FNT FOR HIGHEST PRIORITY COMPLETED OUTPUT FILE 

IS THERE A COMPLETED OUTPUT FILE P 



YES 



assign file to control point as local file 
Assign file name as job name 
release fnt channel 



DAYFILE MESSAGE- PRINT 



REQUEST CHANNEL FOR LP 
READ LP STATUS 
IS PRINTER READY ? 



YES 



CLEAR CARRIAGE CONTROLS 

SELECT CARRIAGE CONTROL LEVEL ONE 

RELEASE CHANNEL 

CLEAR PP TIME CHARGES TO CONTROL POINT 



V 
(NEXT PAGE) 



> RELEASE PPU 



REQUEST MONITOR ASSIGN FIELD LENGTH OF 4000B WORDS 



CONSOLE MESSAGE - WAITING FOR STORAGE 
ENTER PP RECALL 
RELEASE PPU 



CONSOLE MESSAGE -NO LP AVAILABLE 
ENTER PP RECALL 
RELEASE PPU 



RELEASE FNT CHANNEL 
ENTER PP RECALL 
RELEASE PPU 



— =H 

NO 



RELEASE CHANNEL 

CONSOLE MESSAGE -PRINTER NOT READY 

PAUSE FOR MONITOR 

READ RA 

IS ERROR FLAG SET P 



> RELEASE PPU 
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(IDJ CONTINUED) 



ENTER CIRCULAR BUFFER CONTROL PARAMETERS 
ENTER JOB NAME AS FILE NAME 
CALL 2BP OVERLAY 



Call 2R0 overlay 



UPDATE FILE STATUS IN FST 
UPDATE CIRCULAR BUFFER STATUS 



ENTER PRINT AS CIRCULAR BUFFER FILE NAME 

call 2BP overlay 



ENTER LP EQUIPMENT NUMBER IN FILE STATUS WORO 

Call 2LP overlay 



NO 



update file status in fst 
Update circular buffer status 
was last reference a file mark P 



YES 



ENTER JOB NAME AS FILE NAME 

Call 2 OF overlay 



PRESET TEMPORARY STORAGE FOR READING DAYFILE 
REQUEST MONITOR COMPLETE DAYFILE 



3* Call 2RD overlay 



Call 2SD overlay 



NO 



IS DAYFILE AT END OF RECORD ? 



YES 



ENTER PRINT AS CIRCULAR BUFFER FILE NAME 
CALL 2BP OVERLAY 



CALL 2LP OVERLAY 



UPDATE FILE STATUS IN FST 
UPDATE CIRCULAR BUFFER STATUS 



& 
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ITD PACKAGE 

PHASE 3 TAPE DUMP 



DOES CONTROL POINT HAVE A JOB NAME P -^= S - 



-> 



RELEASE PPU 



ENTER JOB NAME- DUMP 

REQUEST MONITOR ASSIGN FIELD LENGTH OF IOOOOB 

READ RA AND FL FROM CONTROL POINT 

HAS FIELD LENGTH BEEN ASSIGNED ? 



YES 



ENTER CIRCULAR BUFFER ADDRESS (0003) IN PPU INPUT REGISTER 

CLEAR RA THRU RA + 2 

ENTER CIRCULAR BUFFER PARAMETERS 



CONSOLE MESSAGE -REQUEST TAPE 
PAUSE FOR MONITOR 
IS ERROR FLAG SET ? 



NO 



YES 



$« RELEASE PPU 



NO 



READ RA FROM CONTROL POINT 

HAS OPERATOR ENTERED EQUIPMENT NUMBER ? 



YES 



STORE EQUIPMENT NUMBER IN THIRD BYTE OF PPU INPUT REGISTER 
CLEAR OPERATOR ASSIGNMENT IN CONTROL POINT AREA 
CLEAR CONSOLE MESSAGE 



d> 



REQUEST FNT CHANNEL 

SEARCH FNT FOR HIGHEST PRIORITY COMPLETED OUTPUT FILE 

IS THERE A COMPLETED OUTPUT FILE ? 



NO 



YES 



RELEASE FNT CHANNEL 

ENTER TAPE AS FILE NAME IN CIRCULAR BUFFER 

ENTER REQUEST FILE MARK STATUS 

CALL 2BP OVERLAY 



ASSIGN FILE TO CONTROL POINT AS A LOCAL FILE 
ASSIGN FILE NAME AS JOB NAME 
RELEASE FNT CHANNEL 



ENTER EQUIPMENT NUMBER IN FILE STATUS WORD 
CALL 2WT OVERLAY 
WRITE FILE MARK 



DAYFILE MESSAGE- DUMP 



(5> 



ENTER JOB NAME AS FILE NAME IN CIRCULAR BUFFER 
ENTER REQUEST CODED READ STATUS 
CALL 2BP OVERLAY 



UPDATE FILE STATUS 

UPDATE BUFFER STATUS 

ENTER REQUEST BACKSPACE STATUS 

CALL 2BP OVERLAY 



CALL 2RD OVERLAY 



CALL 2BT OVERLAY 
UPDATE FILE STATUS 
UPDATE BUFFER STATUS 



UPDATE FILE STATUS 
UPOATE BUFFER STATUS 



RELEASE PPU 



V 
(NEXT PAGE) 



A-40 



(ITD CONTINUED) 



ENTER TAPE AS FILE NAME IN CIRCULAR BUFFER 
CALL 2BP OVERLAY 



ENTER EQUIPMENT NUMBER IN FILE STATUS WORD 

CALL 2WT OVERLAY 

IS A FILE MARK REQUESTED ? 



NO 



IS TAPE TYPE WT ? 



YES 



RJ CODED WRITE IN 2WT OVERLAY 



UPDATE FILE STATUS 
UPDATE BUFFER STATUS 



WAS A FILE MARK REQUESTED ? 



NO 



YES 



ENTER JOB NAME AS FILE NAME IN CIRCULAR BUFFER 
CALL 2DF OVERLAY 



PRESET TEMPORARY STORAGE FOR READING DAYFILE 
REQUEST MONITOR COMPLETE DAYFILE 



> CALL 2RD OVERLAY 



CALL 2SD OVERLAY 



IS DAYFILE AT END OF RECORD ? 



YES 



ENTER TAPE AS FILE NAME IN CIRCULAR BUFFER 
CALL 2BP OVERLAY 



ENTER EQUIPMENT NUMBER IN FILE STATUS WORD 

CALL 2WT OVERLAY 

IS A FILE MARK REQUESTED ? 



NO 



IS TAPE TYPE WT ? 



YES 



NO 



RJ CODED WRITE IN 2WT OVERLAY 



UPDATE FILE STATUS 
UPDATE BUFFER STATUS 



CLEAR PP TIME CHARGES IN CONTROL POINT AREA 



» RJ BINARY WRITE IN 2WT OVERLAY 



■*® 



5> RJ BINARY WRITE IN 2WT OVERLAY 



I) 



A-41 



ILJ PACKAGE 

PHASE ONE CARD LOAD 



ENTER READ AS CONTROL POINT JOB NAME 
IS ERROR FLAG SET ? 



YES 



> RELEASE PPU 



NO 



READ RA AND FL FROM CONTROL POINT AREA 
IS FL = 4000B ? 



YES 



REQUEST MONITOR ASSIGN 4000B FIELD LENGTH 
CONSOLE MESSAGE - WAITING FOR STORAGE 
ENTER PP RECALL 
RELEASE PPU 



ENTER CIRCULAR BUFFER ADDRESS (0003) IN PPU INPUT REGISTER 

CLEAR RA THRU RA+2 

PRESET CIRCULAR BUFFER PARAMETERS 



IS EQUIPMENT NUMBER IN THIRD BYTE OF PPU INPUT REGISTER ? 



®- 



YES 



REQUEST MONITOR ASSIGN EQUIPMENT TYPE CR 
WAS EQUIPMENT ASSIGNED ? 



NO 



ENTER READ AS CONTROL POINT JOB NAME 
CONSOLE MESSAGE -IDLE 



YES 



STORE EQUIPMENT NUMBER IN THIRD 
BYTE OF PPU INPUT REGISTER 



CONSOLE MESSAGE- NO CR AVAILABLE 
ENTER PP RECALL 
RELEASE PPU 



REQUEST CHANNEL FOR CARD READER 

READ STATUS 

RELEASE CHANNEL 

IS CARD READER READY ? 



ENTER PP RECALL 
RELEASE PPU 



YES 



ENTER FILE NAME READ IN CIRCULAR BUFFER 
CALL 2BP OVERLAY 



ENTER EQUIPMENT NUMBER IN FILE STATUS WORD 
CALL 2RC OVERLAY 



UPDATE FILE STATUS 
UPDATE BUFFER STATUS 
CALL 2TJ OVERLAY 



ENTER JOB NAME IN CONTROL POINT AREA 
DAYFILE MESSAGE -READ 



©■ 



ENTER JOB NAME IN CIRCULAR BUFFER AS FILE NAME 
CHANGE BUFFER STATUS FROM INPUT TO OUTPUT 
CALL 2BP OVERLAY 



IS A FILE MARK REQUESTED ? 



YES 



NO 



CALL 2WD OVERLAY 
UPDATE FILE STATUS 
UPDATE BUFFER STATUS 



B) (NEXT PAGE) 
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(ILJ CONTINUED) 



(D 



ENTER FILE NAME READ IN CIRCULAR BUFFER 
CALL 2BP OVERLAY 



ENTER EQUIPMENT NUMBER IN FILE STATUS WORD 
CALL 2RC OVERLAY 



UPDATE FILE STATUS 
UPDATE BUFFER STATUS 
WAS A FILE MARK READ ? 



NO 



■*© 



YES 



REQUEST MONITOR ASSIGN PP TIME TO CONTROL POINT 
READ PP TIME AND CONVERT TO DECIMAL 
DAYFILE MESSAGE -PP XXXX SEC. 



ENTER JOB NAME IN BUFFER AS FILE NAME 
CALL 2BP OVERLAY 



REWIND FILE STATUS 

ADD JOB PRIORITY TO FILE NAME 

UPDATE FILE NAME AND STATUS IN FNT/FST 

RELEASE FILE AS COMPLETED INPUT FILE 



ENTER FILE NAME READ IN CIRCULAR BUFFER 
CALL 2BP 



CLEAR FILE STATUS WORD TO NEW FILE IN FST 



<s> 
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ILT PACKAGE 

PHASE ONE TAPE LOAD 



DOES CONTROL POINT HAVE A JOB NAME ? 



NO 



YES 



ENTER CONTROL POINT NAME LOAD 

REQUEST MONITOR ASSIGN FIELD LENGTH OF IOOOO B 

READ RA AND FL 

DOES FL = IOOOOB ? 



> RELEASE PPL) 



YES 



ENTER BUFFER ADDRESS (0003) IN PPU INPUT REGISTER 
CLEAR RA THRU RA + 2 
ENTER BUFFER PARAMETERS 



CONSOLE MESSAGE -REQUEST TAPE 



PAUSE FOR MONITOR 

READ RA 

IS ERROR FLAG SET ? 



NO 



YES 



> RELEASE PPU 



NO 



HAS OPERATOR ASSIGNED AN EQUIPMENT NUMBER ? 



YES 



ENTER EQUIPMENT NUMBER IN THIRD BYTE OF PPU INPUT REGISTER 
CLEAR OPERATOR ASSIGNMENT IN CONTROL POINT AREA 
CLEAR CONSOLE MESSAGE 



(A> 



ENTER FILE NAME TAPE IN CIRCULAR BUFFER 
REQUEST READ STATUS 
CALL 2BP OVERLAY 



ENTER EQUIPMENT NUMBER IN FILE STATUS WORD 
CALL 2RT OVERLAY 
UPDATE BUFFER STATUS 
UPDATE FILE STATUS 



WAS A FILE MARK READ ? 



NO 



> RELEASE PPU 



CALL 2TJ OVERLAY 



ENTER NEW JOB NAME IN CONTROL POINT AREA 
DAYFILE MESSAGE -LOAD 
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(ILT CONTINUED) 



ENTER JOB NAME AS FILE NAME IN CIRCULAR BUFFER 

CALL 2BP OVERLAY 

IS A FILE MARK REQUESTED ? 



YES 



NO 



CALL 2WD OVERLAY 



UPDATE FILE STATUS 
UPDATE BUFFER STATUS 



ENTER FILE NAME TAPE IN CIRCULAR BUFFER 
REQUEST READ STATUS 
CALL 2BP OVERLAY 



ENTER EQUIPMENT NUMBER IN FILE STATUS WORD 
CALL 2RT OVERLAY 
UPDATE BUFFER STATUS 
UPDATE FILE STATUS 



NO 



WAS A FILE MARK READ ? 



YES 



ENTER JOB NAME AS FILE NAME IN CIRCULAR BUFFER 
CALL 2BP OVERLAY 



REWIND FILE STATUS 

ADD PRIORITY TO FILE NAME 

RELEASE FILE AS INPUT FILE 



ENTER FILE NAME TAPE IN CIRCULAR BUFFER 

REQUEST READ STATUS 

CALL 2BP OVERLAY 

CLEAR FILE STATUS WORD TO NEW FILE 



<S> 
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CLL PACKAGE 

CENTRAL LIBRARY LOADER 



READ RA AND FL FROM CONTROL POINT AREA 

READ ARGUMENT AREA ADDRESS FROM PPU INPUT REGISTER 

READ STARTING ADDRESS AND LIMIT ADDRESS 



IS LIMIT ADDRESS GREATER THAN FIELD LENGTH ? 



YES 



A) > IS NEXT ARGUMENT ADDRESS OVER FIELD LENGTH P - 



RELEASE PPU 



READ NEXT ARGUMENT 

IS ARGUMENT A BLANK WORD ? 



YES 



NO 



CLEAR NEXT PROGRAM ADDRESS LOCATION 
CLEAR FIRST ARGUMENT 
REQUEST CENTRAL PROCESSOR 
RELEASE PPU 



SEARCH RSL FOR ARGUMENT NAME 
IS PACKAGE IN RSL ? 



YES 



NO 



WILL PACKAGE EXCEED LIMIT ADORESS ? 



YES 



SET LIMIT FLAG IN ARGUMENT LOCATION 



*® 



STORE INITIAL PROGRAM ADDRESS IN ARGUMENT LOCATION 

COPY PROGRAM 

ADVANCE PROGRAM ADDRESS 



<s> 



SEARCH CLD FOR ARGUMENT NAME 
IS PACKAGE IN CLD ? 



NO 



YES 



NO 



SEARCH FNT FOR ARGUMENT NAME 
ASSIGNED TO THIS CONTROL POINT 
IS PACKAGE IN FNT ? 



NO 



YES 



IS PACKAGE ON DISK FILE ? 



YES 



NO 



STORE INITIAL PROGRAM ADDRESS IN ARGUMENT LOCATION 

REQUEST CHANNEL 

POSITION DISK FILE TO BEGINNING OF PACKAGE 

COPY PACKAGE UNTIL SHORT SECTOR OR LIMIT ADDRESS 

WAS LIMIT ADDRESS REACHED ? 



YES 



SET LIMIT FLAG IN ARGUMENT LOCATION 
RELEASE CHANNEL 
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RELEASE CHANNEL 
ADVANCE PROGRAM ADDRESS 



*<S) 



DMP PACKAGE 
STORAGE DUMP 



READ INITIAL AND TERMINAL ADDRESS FROM PPU INPUT REGISTER 
IS TERMINAL ADDRESS LESS THAN INITIAL ADDRESS P 



YES 



YES 



NO 



IS TERMINAL ADDRESS EQUAL TO INITIAL ADDRESS ? 



YES 



*® 



NO 



IS TERMINAL ADDRESS GREATER THAN FIELD LENGTH ? 



YES 



NO 



SEARCH FNT FOR OUTPUT FILE ASSIGNED TO THIS CONTROL POINT 

IS THERE AN OUTPUT FILE ? 



NO 



REQUEST FNT CHANNEL 

SEARCH FNT FOR A BLANK ENTRY 

IS THERE A BLANK ENTRY ? 



NO 



YES 



ENTER AN OUTPUT FILE IN THE FNT 
RELEASE CHANNEL 



REQUEST FST CHANNEL 

IS AN EQUIPMENT ASSIGNED TO THE OUTPUT FILE ? 



YES 



NO 



IS THE OUTPUT FILE BEING USED ? 



YES 



NO 



SET FILE STATUS TO REQUEST CODED WRITE 
RELEASE CHANNEL 



PRESET PPU STORAGE BUFFER WITH TWO LINE SPACES AND DMP 
IS OUTPUT FILE A NEW FILE P 



YES 



NO 



WAS LAST FILE REFERENCE IN READ MODE ? -^ 



NO 



READ NEXT WORD TO BE DUMPED 

ENTER A LINE OF CODING IN PPU BUFFER CONSISTING OF A 
6 DIGIT ADDRESS AND 4 FIVE DIGIT GROUPS OF DATA 
HAS BUFFER LIMIT BEEN REACHED ? 



NO 



YES 



NO 



ADVANCE DUMP ADDRESS 

HAS TERMINAL ADDRESS BEEN REACHED P 



YES 



CLEAR NEXT WORD IN PPU BUFFER 



RJ DUMP PPU BUFFER 



UPDATE FILE STATUS WORD IN FST 
RELEASE PPU 



DAYFILE MESSAGE -DMP ARG ERROR 
ABORT CONTROL POINT 
RELEASE PPU 



® 



ENTER INITIAL AND TERMINAL ADDRESS FOR 
EXCHANGE PACKAGE AT CONTROL POINT 
MODIFY HEADLINE OF PPU BUFFER TO DMPX 






RELEASE CHANNEL 
RELEASE PPU 



RELEASE CHANNEL 
RELEASE PPU 
% 



REQUEST MONITOR ASSIGN DISK TRACK 
WAS TRACK A88IGNED P 



YES 



ENTER TRACK NUMBER 
IN FILE STATUS WORD 



NO 



RELEASE FILE STATUS 
RELEA3E PPU 



RJ DUMP PPU BUFFER 
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DMP SUBROUTINE 
DUMP PPU BUFFER 



REQUEST CHANNEL 

RESET BUFFER OUTPUT ADDRESS 



IS THERE SUFFICIENT DATA IN THE BUFFER FOR A FULL SECTOR P 



YES 



POSITION DISK TO NEXT SECTOR 

WRITE FULL SECTOR 

ADVANCE BUFFER OUTPUT ADDRESS 



NO 



POSITION DISK TO NEXT SECTOR 
WRITE SHORT SECTOR 
WRITE FILE MARK 



RELEASE CHANNEL 

RESET BUFFER INPUT ADDRESS 

EXIT 
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EXU PACKAGE 
EXECUTE PROGRAM 



READ RA AND FL FROM CONTROL POINT AREA 
IS ERROR FLAG SET P 



YES 



> RELEASE PPU 



READ ARGUMENT ADDRESS FROM PPU INPUT REGISTER 
READ FILE NAME FROM ARGUMENT LOCATION 
SEARCH FNT FOR FILE NAME 
IS NAMED FILE ASSIGNED TO THIS CONTROL POINT ? 



NO 



DAYFILE MESSAGE -PROGRAM NOT ON DISK 
ABORT CONTROL POINT 
RELEASE PPU 



YES 



IS AN EQUIPMENT NUMBER ASSIGNED ? 



YES 



NO 



HAS FILE BEEN USED ? 



NO 



YES 



REQUEST CHANNEL 

POSITION DISK FILE TO BEGINNING TRACK AND SECTOR 

READ DISK DATA TO A SHORT SECTOR OR FIELD LIMIT BEGINNING AT RA 

WAS FL REACHED P 



RELEASE CHANNEL 

DAYFILE MESSAGE -PROGRAM TOO LONG 

ABORT CONTROL POINT 

RELEASE PPU 



NO 



RELEASE CHANNEL 

CLEAR EXCHANGE AREA 

SET P TO LOWER SIX BITS OF (RA+I) PLUS 3 

ENTER FL IN AO 

Clear RA and RA + i 



REQUEST CENTRAL PROCESSOR 
RELEASE PPU 
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LBC PACKAGE 

LOAD BINARY CORRECTIONS 



READ RA AND FL FROM CONTROL POINT AREA 

READ INITIAL DATA ENTRY ADDRESS FROM PPU INPUT REGISTER 

SEARCH FNT FOR INPUT FILE 

IS INPUT FILE ASSIGNED TO THIS CONTROL POINT ? 



YES 



NO 



£■ RELEASE PPU 



REQUEST FST CHANNEL 

READ FILE STATUS WORD 

IS AN EQUIPMENT NUMBER ASSIGNED ? 



NO 



YES 



IS FILE BEING USED ? 



YES 



NO 



RELEASE CHANNEL 
RELEASE PPU 



SET FILE STATUS WORD TO ACTIVE STATE 
RELEASE FST CHANNEL 



REQUEST CHANNEL 
HAS FILE BEEN USED ? 



YES 



POSITION DISK FILE TO NEXT TRACK AND SECTOR 
READ SECTOR TO PPU STORAGE 
WAS SECTOR A FILE MARK ? 



YES 



NO 



UPDATE FILE STATUS WORD 
RELEASE CHANNEL 
RELEASE PPU 



ADVANCE FILE STATUS TO NEXT SECTOR 
WILL OATA EXCEED FIELD LENGTH ? 



NO 



YES 



DAYFILE MESSAGE -LBC RANGE LIMIT 
UPDATE FILE STATUS 
RELEASE CHANNEL 
ABORT CONTROL POINT 
RELEASE PPU 



NO 



STORE DATA IN CENTRAL STORAGE 

ADVANCE DATA ADDRESS 

WAS SECTOR A SHORT SECTOR P 



YES 



UPDATE FILE STATUS 
RELEASE CHANNEL 
RELEASE PPU 
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LOC PACKAGE 

LOAD OCTAL CORRECTIONS 



READ RA AND FL FROM CONTROL POINT AREA 

READ ARGUMENTS FROM PPU INPUT REGISTER 

IS FIRST ARGUMENT GREATER THAN SECOND ARGUMENT? 



YES 



YES 



NO 



ARE ARGUMENTS EQUAL ? 



NO 



IS SECOND ARGUMENT GREATER THAN FIELD LENGTH ? 



YES 



NO 



DAYFILE MESSAGE- LOC ARGUMENT ERROR 
ABORT CONTROL POINT 
RELEASE PPU 



CLEAR CENTRAL STORAGE FROM FIRST ARGUMENT 
ADDRESS TO SECOND ARGUMENT ADDRESS 



SEARCH FNT FOR AN INPUT FILE 

IS THERE AN INPUT FILE ASSIGNED TO THIS CONTROL POINT ? 



NO 



YES 



-» RELEASE PPU 
JK 



REQUEST FST CHANNEL 

READ FILE STATUS WORD 

IS AN EQUIPMENT NUMBER ASSIGNED ? 



YES 



^ RELEASE FST CHANNEL 



NO 



IS THE INPUT FILE BEING USED ? 



YES 



NO 



RESERVE FILE 
RELEASE FST CHANNEL 



REQUEST CHANNEL 
HAS FILE BEEN USED ? 



YES 



NO 



YES 



RELEASE FILE STATUS 
RELEASE CHANNEL O 
RELEASE PPU 



POSITION DISK FILE TO NEXT SECTOR 
READ SECTOR TO PPU BUFFER 
WAS A FILE MARK READ P 



NO 



IS PPU BUFFER FULL ? 



NO 



YES 



NO 



UPDATE FILE STATUS 
RELEASE CHANNEL 



WAS A SHORT SECTOR READ ? 



YES 



RELEASE FILE STATUS 
RELEASE CHANNEL 



IS PPU BUFFER EMPTY ? 



(NEXT PAGE) 



YES 



RELEASE PPU 
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(LOC CONTINUED) 
A 



Clear line buffer 



NO 



Has end of buffer data been reached ? 



YES 



was last sector a short sector ? 



YES 



NO 



REQUEST CHANNEL 

RESET PPU BUFFER ADDRESS 



YES 



POSITION DISK FILE TO NEXT SECTOR 
READ SECTOR TO PPU BUFFER 
WAS A FILE MARK READ ? 



NO 



Is PPU buffer full ? 



YES 



NO 



WAS A SHORT SECTOR READ ? 



YES 



RELEASE FILE STATUS 
RELEASE CHANNEL 



^ UNPACK NEXT WORD INTO LINE BUFFER <■ 



HAS LINE BUFFER LIMIT BEEN REACHEO ? 



YES 



NO 



DOES LAST WORD END IN A BLANK BYTE ? 



YES 



ASSEMBLE OCTAL DIGITS IN FIRST SIX CHARACTER POSITIONS OF LINE 

SKIP SPACES 

IS THERE A NON- OCTAL CHARACTER IN FIRST SIX POSITIONS ? 



NO 



YES 



STORE ASSEMBLED ADDRESS FOR DATA ENTRY 

ASSEMBLE 20 OCTAL DIGITS BEGINNING IN POSITION 7 OF LINE BUFFER 

SKIP SPACES 

IS THERE A NON -OCTAL CHARACTER BEFORE 20 DIGITS P 



NO 



YES 



IS ASSEMBLED ADDRESS GREATER THAN FIELD LENGTH ? 



YES 



NO 



ENTER ASSEMBLED WORD AT ASSEMBLED ADDRESS 



UPDATE FILE STATUS 
RELEASE CHANNEL 



> IS PPU BUFFER EMPTY ? 



YES 



-> RELEASE PPU 



*© 



*© 



■*® 



<s> 
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MSG PACKAGE 
DAYFILE MESSAGE 



READ ARGUMENT ADDRESS FROM PPU INPUT REGISTER 

READ FIELD LENGTH FROM CONTROL POINT AREA 

IS AGRUMENT ADDRESS GREATER THAN FIELD LENGTH ? 



DAYFILE MESSAGE - MESSAGE FORMAT ERROR 
ABORT CONTROL POINT 
RELEASE PPU 



NO 



COPY MESSAGE FROM ARGUMENT AREA TO PPU MESSAGE BUFFER 
ARE THERE ANY ILLEGAL CHARACTER CODES P 



YES 



DOES MESSAGE LENGTH EXCEED BUFFER LENGTH P 



NO 



DAYFILE MESSAGE - MESSAGE LIMIT 
ABORT CONTROL POINT 
RELEASE PPU 



RELEASE MESSAGE TO DAYFILE 
RELEASE PPU 
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PBC PACKAGE 
PUNCH BINARY CARDS 



READ INITIAL AND TERMINAL ADDRESSES FROM PPU INPUT REGISTER 
IS TERMINAL ADDRESS 40000B OR GREATER ? 



YES 



SUBTRACT 40000B FROM TERMINAL ADDRESS AND ENTER AS INITIAL ADDRESS 
READ LOWER 18 BITS FROM THIS STORAGE LOCATION AND ADD TO NEW 
INITIAL ADDRESS TO FORM NEW TERMINAL ADDRESS 
ARE NEW INITIAL AND TERMINAL ADDRESSES EQUAL ? 



NO 



YES 



> RELEASE PPU 



■> IS INITIAL ADDRESS GREATER THAN TERMINAL ADDRESS ? 



NO 



YES 



- IS INITIAL ADDRESS EQUAL TO TERMINAL ADDRESS P 



YES 



READ LOWER 18 BITS OF (RA) AND ENTER AS TERMINAL ADDRESS 
IS TERMINAL ADDRESS ZERO ? 



NO 



YES 



CLEAR INITIAL ADDRESS TO ZERO 



REQUEST MONITOR ASSIGN CP EQUIPMENT TO CONTROL POINT 
WAS EQUIPMENT ASSIGNED ? 



YES 



NO 



MODIFY PACKAGE FOR EQUIPMENT PARAMETERS 
CLEAR CARD COUNT 



CONSOLE MESSAGE -NO CP AVAILABLE 

PAUSE FOR MONITOR 

READ RA AND FL 

IS ERROR FLAG SET ? 



NO 



NO 



T> RELEASE PPU 



IS TERMINAL ADDRESS GREATER THAN FIELD LENGTH ? 



PAUSE FOR MONITOR 

READ RA AND FL 

IS ERROR FLAG SET P 



YES 



■^ RELEASE PPU 



YES 



DAYFILE MESSAGE -PBC RANGE ERROR 
ABORT CONTROL POINT 
RELEASE PPU 



NO 



IS TERMINAL ADDRESS GREATER THAN FIELD LENGTH ? 



NO 



YES 



LOAD PPU PUNCH BUFFER WITH DATA FOR NEXT CARD 
STORE CARD LENGTH AND 7-9 PUNCH IN COLUMN ONE 
STORE MOD 4095 CHECK SUM IN COLUMN TWO 
STORE CARD NUMBER IN COLUMN 80 



REQUEST CHANNEL FOR CARD PUNCH 



READ PUNCH STATUS 
IS PUNCH READY ? 



NO 



YES 



NO 



CONSOLE MESSAGE -PUNCH NOT READY 



PUNCH ONE CARD 

RELEASE CHANNEL 

HAS TERMINAL ADDRESS BEEN REACHED ? 



YES 



REQUEST MONITOR RELEASE CARD PUNCH 
RELEASE PPU 
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® 





MTR PACKAGE 
SYSTEM MONITOR 










v 












ASSIGN OISK FILE TRACK FOR DAYFILE 
ENTER OAYFILE STATUS IN FST 










V 












EXCHANGE JUMP TO IDLE ROUTINE 










" 










\ -, 


RJ ADVANCE CLOCK 






) -* 








> 












READ PPU 1 OUTPUT REGISTER 
IS REGISTER EMPTY P 


NO 










RJ PROCESS PPU MESSAGE 


















> 


YES 










READ PPU 2 OUTPUT REGISTER 
IS REGISTER EMPTY ? 


<£ 

NO 












RJ PROCESS PPU MESSAGE 










\ 


YES 

1 












READ PPU 3 OUTPUT REGISTER 
IS REGISTER EMPTY ? 


^ 

NO 












RJ PROCESS PPU MESSAGE 










' 


YES 
I 












READ PPU 4 OUTPUT REGISTER 
IS REGISTER EMPTY ? 


< 

NO 












RJ PROCESS PPU MESSAGE 










\ 


YES 












READ PPU 5 OUTPUT REGISTER 
IS REGISTER EMPTY ? 










NO 












RJ PROCESS PPU MESSAGE 










\ 


YES 












READ PPU 6 OUTPUT REGISTER 
IS REGISTER EMPTY ? 










NO 












RJ PROCESS PPU MESSAGE 










\ 


YES 

t 












READ PPU 7 OUTPUT REGISTER 
IS REGISTER EMPTY ? 










NO 












RJ PROCESS PPU MESSAGE 










\ 


YES 

f 












READ PPU 8 OUTPUT REGISTER 
IS REGISTER EMPTY ? 










NO 












RJ PROCESS PPU MESSAGE 












YES 

f 












READ PPU 9 OUTPUT REGISTER 
IS REGISTER EMPTY ? 










NO 












RJ PROCESS PPU MESSAGE 












YES 












READ PPU OUTPUT REGISTER 
IS REGISTER EMPTY ? 


^ 

NO 












RJ PROCESS PPU MESSAGE 














YES 










IS CENTRAL PROCESSOR ASSIGNED TO A CONTROL POINT ? 


NO ^ 


Z) 




*»i 








YES 




(NEXT PAGE) 




REAO (RA + I) FOR CONTROL POINT 
IS WORD CLEARED ? 


YES 




















NO 






)' 








-f 


t) 





















A-55 



(NEXT PAGE) 



(MTR PACKAGE CONTINUED) 



©■ 



® 



IS SIMULATOR OPERATING ? 



YES 



NO 



READ P FROM CENTRAL PROCESSOR 



NO 



IS P=0 ? «£ 



YES 



RJ SET ERROR FLAG 2 



IS A PPU AVAILABLE FOR ASSIGNMENT ? 



NO 



YES 



RJ ADVANCE CPU JOB STATUS <£ 



IS DUMP FLAG SET ? 



YES 



NO 



©*■ 



> READ P FROM SIMULATOR 



> RJ SEARCH FOR FREE PPU 



RJ DUMP DAYFILE NEXT PHASE 













MTR SUBROUTINE 














ADVANCE CLOCK 


^^vL 










ty>~ 




> 


i 






READ CURRENT CLOCK VALUE 

HAS NEXT MILLISECOND BEEN REACHED P 










NO 


Exit 




> 


*" 










YES 








> 


f 


toty - I7*0g 


NO 


ADVANCE CLOCK PHASE TO NEXT MILLISECOND 
ADVANCE MILLISECOND COUNT 










HAS COUNT REACHED IOOO MILLISECONDS ? 








YES 






> 


1 






ADVANCE SECOND COUNT 










UP 


DATE DATE I 


INE ONE S 


ECOND IN C 


ISPLAY COD 


E 







A-56 



mtr subroutine 
Process ppu message 



IS MONITOR IN STEP MODE ? 



NO 



READ FUNCTION FROM REQUESTING 

PPU OUTPUT REGISTER 

RJ TO CORRESPONDING MTR SUBROUTINE 



RJ ADVANCE CLOCK 
. 



9* SET WAIT STEP FLAG AT CENTRAL ADDRESS 0014 | 



> RJ ADVANCE CLOCK 



HAS OPERATOR STEPPED MONITOR ? 



YES 



CLEAR STEP FLAG 



MTR FUNCTION 01 
PROCESS DAYFILE MESSAGE 



IS DUMP FLAG SET ? 



YES 



NO 



COPY MESSAGE FROM PPU MESSAGE BUFFER TO CONTROL POINT AREA 



ENTER TIME IN DAYFILE BUFFER 

ENTER JOB NAME IN DAYFILE BUFFER 

COPY MESSAGE FROM PPU MESSAGE BUFFER TO DAYFILE BUFFER 



clear ppu output register 

Does dayfile buffer contain a full disk sector of data ? 



SET PHASE ONE DUMP FLAG 



-^ EXIT 
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mtr function 02 
Request channel 












V 










READ CHANNEL STATUS TABLE 
IS REQUESTED CHANNEL BUSY ? 


YES 






EXIT 










1 


\ 




NO 






Assign channel to requesting ppu 






Clear ppu output register 













MTR FUNCTION 03 
DROP CHANNEL 



READ CHANNEL STATUS TABLE 

CLEAR REQUESTED CHANNEL ASSIGNMENT 

UPDATE CHANNEL STATUS TABLE 

EXIT 



MTR FUNCTION 04 
ASSIGN PP TIME 



JL 



READ STARTING TIME FOR REQUESTING PPU 

SUBTRACT FROM CURRENT TIME IN SECONDS AND MILLISECONDS 

ADD TO ACCUMULATED TIME CHARGE IN CONTROL POINT AREA 

STORE NEW PPU STARTING TIME 

CLEAR PPU OUTPUT REGISTER 

EXIT 
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MTR FUNCTION 05 
MONITOR STEP CONTROL 



SET MONITOR STEP CONTROL FLAG 

Clear PPU output register 
Exit 



MTR FUNCTION 06 
REQUEST DISK TRACK 



SEARCH REQUESTED TRT FOR AN UNASSIGNEO TRACK 
IS THERE A TRACK AVAILABLE ? 



NO 



clear first word of ppu message buffer 

clear ppu output register 

Exit 



ENTER TRACK NUMBER IN PPU MESSAGE BUFFER 

Update TRT for assigned track 
Clear PPU output register 
is track on disk file o P 



NO 



> EXIT 



YES 



Advance track count in control point area 
has track limit been reached ? 



YES 



> RJ SET ERROR FLAG 7 



MTR FUNCTION 07 
DROP DISK TRACK 



CLEAR TRACK ASSIGNMENT IN REQUESTED TRT 
REDUCE TRACK COUNT IN CONTROL POINT AREA 

Clear PPU output register 

EXIT 
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MTR FUNCTION 10 
REQUEST STORAGE 



IS STORAGE MOVE FLAG SET ? 



YES 



IS FLAG FOR REQUESTING PPU P 



NO 



SET STORAGE MOVE FLAG FOR REQUESTING PPU 



G 



NO 



YES 



CLEAR PPU OUTPUT REGISTER 
EXIT 



IS REQUESTED STORAGE AN INCREASE ? 



YES 



IS THERE ROOM FOR THE STORAGE INCREASE ? 



YES 



NO 



SET MOVE FLAGS IN ALL CONTROL POINTS 
AFTER REQUESTING CONTROL POINT 



CLEAR STORAGE MOVE FLAG 
CLEAR PPU OUTPUT REGISTER 
EXIT 



IS THERE ANY PPU ACTIVITY AT CONTROL POINTS WITH MOVE FLAGS ? 



> EXIT 



NO 



EXCHANGE ALL RUNNING CPU PROGRAMS IN CP STACK AND SET W FLAGS 
EXCHANGE JUMP TO STORAGE MOVE PROGRAM WITH PROPER PARAMETERS 
SENSE P = FOR END OF STORAGE MOVE PROGRAM 





\ 


t 


NO 








IS P = ? 


RJ ADVANCE CLOCK 














\ 


YES 






UPDATE RA AND FL IN EACH EXCHANGE PACKAGE 
CLEAR STORAGE MOVE FLAGS 






\ 


1 








RJ SEARCH FOR CP PRIORITY 








\ 


' 








CLEAR PPU OUTPUT REGISTER 
EXIT 
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MTR FUNCTION II 
COMPLETE DAYFILE 














v 














IS A DUMP FLAG SET P 


YES 


^ 


EXIT 








YES 












NO 














>' 




CLEAR 
CLEAR 
EXIT 


COMPLETE DAYFILE FLAG 
PPU OUTPUT REGISTER 


IS THE COMPLETE DAYFILE FLAG SET ? 








NO 




\ 


' 












SET COMPLETE DAYFILE FLAG 
SET DUMP FLAG PHASE ONE 
EXIT 











MTR FUNCTION 12 
RELEASE PPU 






\ 


' 




CLEAR PPU ASSIGNMENT AT CONTROL POINT 

COMPUTE PPU RUNNING TIME AND ADD TO ACCUMULATED PP TIME 

UPDATE PPU STARTING TIME 




\ 


' 






CLEAR PPU INPUT REGISTER 
CLEAR PPU OUTPUT REGISTER 
EXIT 







MTR FUNCTION 13 
ABORT CONTROL POINT 






\ 


1 




CLEAR PPU ASSIGNMENT AT CONTROL POINT 

COMPUTE PPU RUNNING TIME AND ADD TO ACCUMULATED PP TIME 

UPDATE PPU STARTING TIME 




\ 


1 






set error flag 3 
clear ppu input register 
Clear ppu output register 
Exit 





A-61 



mtr function 14 
Enter new time limit 



Enter new time limit in control point area 

Clear PPU output register 

Exit 



MTR FUNCTION 15 

REQUEST central processor 



IS AN ERROR FLAG SET ? 



NO 



Does (RA+ I) contain END ? 



YES 



NO 



Clear PPU output register 
Exit 



Is control point listed in CPU stack p 



YES 



NO 



set w flag for control point 
rj search for cp priority 
clear ppu output register 
Exit 



MTR FUNCTION 16 

RELEASE CENTRAL PROCESSOR 



IS CONTROL POINT LISTED IN STACK ? 



EXCHANGE RUNNING PROGRAM ANO PUSH UP STACK 
WAS REQUESTING CONTROL POINT EXCHANGED ? 



SET W FLAG FOR EXCHANGED CONTROL POINT 



CLEAR W AND X FLAGS AT CONTROL POINT 

Clear PPU output register 
Exit 



RJ SEARCH FOR CP PRIORITY 

RJ ADVANCE CLOCK 

CLEAR PPU OUTPUT REGISTER 

EXIT 
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MTR FUNCTION 17 

PAUSE FOR STORAGE RELOCATION 






V 








IS MOVE FLAG SET FOR CONTROL POINT ? 


YES ^ 


Exit 






NO 

v 










clear ppu output register 
Exit 







MTR FUNCTION 20 
REQUEST PPU 
















\ 


1 




CLEAR PPU MESSAGE BUFFER 
CLEAR PPU OUTPUT REGISTER 
EXIT 




IS THERE A PPU AVAILABLE ? 


NO ^ 










YES 






V 








ENTER FIRST WORD OF MESSAGE BUFFER IN PPU INPUT REGISTER 

ASSIGN PPU TO CONTROL POINT 

ASSIGN PPU IDLE TIME TO CONTROL POINT ZERO 

UPDATE PPU STARTING TIME 






\ 


' 






enter new ppu input register address in first byte of requesting ppu message buffer 
clear ppu output register 
rj search for free ppu 
Exit 





MTR FUNCTION 21 
RECALL CPU 



IS AN ERROR FLAG SET ? 



NO 



IS THE X FLAG SET ? 



YES 



CLEAR PPU OUTPUT REGISTER 
EXIT 



IS REQUESTING CONTROL POINT IN CPU STACK ? 



YES 



NO 



SET W FLAG 

CLEAR X FLAG 

RJ SEARCH FOR CP PRIORITY 

CLEAR PPU OUTPUT REGISTER 

EXIT 
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MTR FUNCTION 22 
REQUEST EQUIPMENT 



IS REQUEST A NUMBER ? 



NO 



YES 



IS CORRESPONDING EQUIPMENT BUSY ? 



Clear ppu message buffer 
clear ppu output register 

EXIT 



NO 



SEARCH EST FOR AN EQUIPMENT OF REQUESTED TYPE 
IS THERE A PROPER TYPE FREE ? 



IS EQUIPMENT A DISK FILE P 



9» IS EQUIPMENT A DISK FILE ? 



YES 



YES 



NO 



ASSIGN EQUIPMENT TO CONTROL POINT 

SET EQUIPMENT ASSIGNMENT IN CONTROL POINT AREA 



enter equipment number in ppu message buffer 

clear ppu output register 

Exit 



MTR FUNCTION 23 
RELEASE EQUIPMENT 



release equipment assignment in est 

Clear equipment assignment in control point area 

clear ppu output register 

EXIT 



MTR FUNCTION 24 
REQUEST PRIORITY 



enter new priority in control point area 
rj search for cp priority 
clear ppu output register 
Exit 
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MTR FUNCTION 25 
REQUEST EXIT MODE 



IS CONTROL POINT IN CPU STACK ? 



> CLEAR W FLAG AND X FLAG FOR CONTROL POINT 



YES 



Exchange current CPU program 
push up CPU stack 



WAS REQUESTING CONTROL POINT EXCHANGED P 



YES 



^ RJ SEARCH FOR CP PRIORITY 



NO 



SET W FLAG FOR EXCHANGED CONTROL POINT 



RJ ADVANCE CLOCK 



ENTER NEW EXIT MODE IN EXCHANGE PACKAGE 

CLEAR PPU OUTPUT REGISTER 

EXIT 



MTR FUNCTION 27 
TOGGLE SIMULATOR STATUS 



IS THERE A PPU AVAILABLE ? 



NO 



9- Exit 



RESET EXCHANGE AREA FOR IDLE PROGRAM 
lb SIMULATOR CURRENTLY OPERATING ? 



YES 



EXCHANGE SIMULATOR TO IDLE PROGRAM 
CLEAR INPUT REGISTER FOR SIMULATOR PPU 
WAIT FOR SIMULATOR TO FINISH 



EXCHANGE TO IDLE PROGRAM 

ENTER SIMULATOR CALL IN PPU INPUT REGISTER 

RJ SEARCH FOR FREE PPU 



EXCHANGE CPU TO IDLE PROGRAM 

MODIFY MONITOR PROGRAM TO TOGGLE SIMULATOR REFERENCES 

CLEAR MONITOR FLAG 

CLEAR PPU OUTPUT REGISTER 

EXIT 



modify monitor program to toggle all simulator references 

set monitor flag 

clear ppu output register 

Exit 
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MTR FUNCTION 30 
OPERATOR DROP 



rj set error flag 6 
Clear ppu output register 

EXIT 



MTR FUNCTION 31 
READY TAPE 



modify est entry to clear equipment lockout bit 

clear ppu output register 

Exit 



MTR FUNCTION 32 
DROP TAPE 



JL 



MODIFY EST ENTRY TO SET EQUIPMENT LOCKOUT BIT 

CLEAR PPU OUTPUT REGISTER 

EXIT 





MTR FUNCTION 33 
ASSIGN EQUIPMENT 












\ 


' 










READ EST ENTRY 

IS EQUIPMENT ALREADY ASSIGNED ? 


YES 










YES 








\ 


NO 

f 






\ 


1 


ENTER EQUIPMENT NUMBER IN CONTROL POINT AREA AS OPERATOR ASSIGNMENT 
IS EQUIPMENT A DISK FILE ? 




CLEAR PPU OUTPUT REGISTER 
EXIT 








\ 


NO 










ASSIGN EQUIPMENT TO CONTROL POINT 

SET EQUIPMENT ASSIGNMENT BIT IN CONTROL POINT AREA 

CLEAR PPU OUTPUT REGISTER 

EXIT 
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MTR SUBROUTINE 

RJ PROCESS PP CALL 



DOES (RA + I) CONTAIN END ? 



YES 



NO 



EXCHANGE CURRENT CPU PROGRAM 

PUSH UP CPU STACK 

EXIT 



DOES (RA + I) CONTAIN RCL P 



YES 



NO 



EXCHANGE CURRENT CPU PROGRAM 

PUSH UP CPU STACK 

SET X FLAG AT CONTROL POINT 

CLEAR (RA+I) 

EXIT 



DOES (RA + I) CONTAIN ABT ? 



YES 



-> 



NO 



RJ SET ERROR FLAG 4 
EXIT 



IS THERE A PPU AVAILABLE ? 



5» EXIT 



YES 



IS FIRST CHARACTER IN PP CALL A LETTER ? 



NO 



YES 



RJ SET ERROR FLAG 5 
EXIT 



ENTER PP CALL IN PPU INPUT REGISTER 
ASSIGN PPU TO CONTROL POINT 
ASSIGN PPU IDLE TIME TO CONTROL POINT ZERO 
UPDATE PPU STARTING TIME 



RJ SEARCH FOR FREE PPU 

CLEAR (RA + I) 

EXIT 
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MTR SUBROUTINE 
RJ SET ERROR FLAG 



STORE ERROR EXIT FLAG NUMBER IN CONTROL POINT AREA 
(I) = TIME LIMIT 
(2)= ARITH ERROR 

(3) = PPU ABORT 

(4) = CPU ABORT 

(5) = PP CALL ERROR 

(6) = OPERATOR DROP 
(7)= DISK TRACK LIMIT 



IS CONTROL POINT IN CPU STACK ? 



NO 



CLEAR W FLAG AND X FLAG 



YES 



-» Exit 



Exchange current CPU program 

push up CPU stack 

Was the control point exchanged ? 



YES 



RJ search for cp priority 
RJ advance clock 



NO 



set w flag for exchanged control point 





MTR SUBROUTINE 

RJ SEARCH FOR FREE PPU 




NO 






\ 


1 








search ppu numbers one through eight for an empty input register 
IS there a free ppu ? 




CLEAR NEXT PPU INPUT REGISTER ADDRESS 
EXIT 








\ 


YES 

f 










store ppu input register address for next assignment 
Exit 
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MTR SUBROUTINE 

RJ ADVANCE CPU JOB STATUS 




co d ^ 



\ i Oofc , 



EXIT 



/ 



ADVANCE SECOND COUNT 
IS CPU IN IDLE PROGRAM ? 



ADD TIME INCREMENT TO CONTROL POINT CPU ACCUMULATED TIME 
HAS TIME LIMIT BEEN REACHED ? 



± i 



NO 



> IS A PPU AVAILABLE ? <r 



YES NO 



RJ SET ERROR FLAG I 



9» EXIT 



MODIFY SUBROUTINE TO ADVANCE TO NEXT CONTROL POINT (MODULUS 7) 
DOES CONTROL POINT HAVE A JOB NAME P 



YES 



NO 



> EXIT 



IS THE RECALL FLAG (X) SET FOR THE CONTROL POINT ? 



YES 



NO 



IS PP RECALL WORD FILLED AT CONTROL POINT P ^ 



YES 



SET W FLAG 

CLEAR X FLAG 

RJ SEARCH FOR CP PRIORITY 



ASSIGN PPU TO PP RECALL FUNCTION 

CLEAR PP RECALL WORD AT CONTROL POINT 

ASSIGN PPU TO CONTROL POINT 

SET PPU ASSIGNMENT BIT IN CONTROL POINT AREA 

ASSIGN PPU IDLE TIME TO CONTROL POINT ZERO 

UPDATE PPU STARTING TIME 



RJ SEARCH FOR FREE PPU 



A-k& 



> IS THERE ANY ACTIVITY AT THE CONTROL POINT P 



NO 



YES 



IS THE STORAGE MOVE FLAG SET ? 



YES 



NO 



EXIT 



IS THE CONTROL POINT LISTED IN THE CPU STACK ? 



NO 



ENTER IAJ IN PPU INPUT REGISTER 

ASSIGN PPU TO CONTROL POINT 

SET PPU ASSIGNMENT BIT IN CONTROL POINT AREA 

ASSIGN PPU IDLE TIME TO CONTROL POINT ZERO 

UPDATE PPU STARTING TIME 

RJ SEARCH FOR FREE PPU 
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MTR SUBROUTINE 

RJ SEARCH FOR CP PRIORITY 










V 






Preset control point search index to control point one 






v 










READ CONTROL POINT STATUS 
IS W FLAG SET ? 


YES 












NO 


\ 










> 


NO 

1 






f 




no 


advance control point search address 
was this the last control point p 






IS CONTROL POINT PRIORITY HIGHER THAN PRIORITY OF CURRENT CPU PROGRAM ? 




















YES 






V 






\ 


1 






ASSIGN ACCUMULATED CPU TIME TO CURRENT CPU PROGRAM 

PUSH DOWN CPU STACK 

EXCHANGE JUMP TO NEW CONTROL POINT 






EXIT 




















V 










clear w flag at new control point 
Exit 





MTR SUBROUTINE 

RJ DUMP DAYFILE PHASE ONE 



enter request channel in monitor ppu output register 

set phase two dump flag 

Exit 





MTR SUBROUTINE 

RJ DUMP DAYFILE PHASE TWO 














> 


f 










IS MONITOR 


PPU OUTPUT REGISTER CLEAR ? 


NO 


Exit 












\ 


YES 

f 






position channel 
set phase three 
Exit 


DISK FILE TO NEXT DAYFILE TRACK 
DUMP FLAG 
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MTR SUBROUTINE 

RJ DUMP DAYFILE PHASE THREE 



READ CHANNEL DISK FILE STATUS 

IS DISK POSITIONED TO WRITE NEXT DAYFILE SECTOR ? 



> EXIT 



YES 



does dayfile buffer contain a full sector of data ? 



YES 



WRITE A SHORT SECTOR ON DISK FILE 

DO NOT UPDATE DAYFILE BUFFER PARAMETERS 

DO NOT ADVANCE DAYFILE SECTOR 



WRITE ONE SECTOR ON DISK FILE 

UPDATE DAYFILE BUFFER PARAMETERS 

ADVANCE DAYFILE SECTOR NUMBER 

WAS THIS THE LAST SECTOR ON THIS TRACK ? 



IS THERE A SPARE DISK TRACK ASSIGNED ? 



YES 



YES 



IS A SPARE TRACK AVAILABLE ? 



5» STOP PPU 



ENTER RELEASE CHANNEL IN MONITOR PPU OUTPUT REGISTER 

SET PHASE SIX DUMP FLAG 

EXIT 



YES 



ASSIGN FIRST SECTOR OF SPARE TRACK 
CLEAR SPARE TRACK INDICATOR 



-> 



ENTER RELEASE CHANNEL IN MONITOR PPU OUTPUT REGISTER 

SET PHASE FOUR DUMP FLAG 

EXIT 



SET PHASE TWO DUMP FLAG 
EXIT 





MTR SUBROUTINE 

RJ DUMP DAYFILE PHASE FOUR 












\ 


f ._ 










IS MONITOR PPU OUTPUT REGISTER EMPTY ? 


NO 


EXIT 










\ 


YES 

f 






ENTER REQUEST DISK TRACK IN MONITOR PPU OUTPUT REGISTER 

SET PHASE FIVE DUMP FLAG 

EXIT 
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MTR SUBROUTINE 

RJ DUMP. DAYFILE PHASE FIVE 















NO 
























\ 


YES 

t 












IS MESSAGE BUFFER EMPTY ? 


NO 


SET SPARE DISK TRACK INDICATOR 














> 


YES 

1 ' 












Clear dump flag 








EXIT 





















MTR SUBROUTINE 

RJ DUMP DAYFILE PHASE SIX 




NO 








\ 


1 






IS MONITOR PPU OUTPUT REGISTER EMPTY ? 


EXIT 








\ 


YES 

t 








CLEAR DUMP FLAG 
EXIT 
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APPENDIX B 
I/O SUBROUTINE FLOW CHARTS 



BACKSP 



ENTRY/ 




C\ YES I 

X6 > ? J -> X6 IS ADDRESS OF PARAMETER LIST 



NO 



COMPLEMENT X6 



< 



Variable tape no. P 



yes 



Generate tape XX" 



->(ls 



FILE NAME IN I/O LIST ? 



NO 



Request abort 



YES 



1 



YES 



f Buffer active ?J 



c 



NO 



FILE BEEN REFERENCED ? 



NO 



YES 




-=>( STOP 



C WAS PREVIOUS FUNCTION WRITE + NO END OF RECORD?")— > SEND END OF RECORD FUNCTION 



SEND BACKSPACE FUNCTION <: 




B.-l 



REWINM 



c 



c 



YES 



X6>0? 



NO 



COMPLEMENT X6 



NO 



c 



VARIABLE TAPE NO. ? 



YES 



GENERATE "TAPE XX" 



*(js 



>( IS FILE NAME IN I/O LIST ? 



} 



NO 



YES 



-kx- 



YES 



BUFFER ACTIVE 



CE 



D 



NO 



X6 IS ADDRESS OF PARAMETER LIST 



> REQUEST ABORT 



->{ STOP 



LE BEEN REFERENCED 



-N NO 

P)— XEXIT 



YES 




IS THERE DATA IN BUFFER WRITE MODE AND NO E.O 



*r> 



> SEND END OF RECORD FUNCTION TO EMPTY BUFFER 



NO 



SEND REWIND FUNCTION <: 




EXIT 



B-2 



ENDFIL 




( X6 > o p p * > 



X6 IS AODRESS OF PARAMETER LIST 



Complement X6 



/VARIABLE TAPE NO. ?J 



YES 



GENERATE 'TAPE XX" 



■ •. mo 

>( IS FILE NAME IN I/O LIST ? J > 



REQUEST ABORT 



>o^- 






BUFFER ACTIVE ? 



NO 



REQUEST E. 0. E FUNCTION 



-WSTOPJ 



B-3 



INPUTB 



SEND REQUEST FOR NEXT READ 



NO 




END OF FILE ? 



SKIP TO END OF LOGICAL RECORD 



NO 



-C WAS E.O.R. FUNCTION FOUND ON INPUT ? J*£r 





ENTRY>— — 5H 



{" Bl = ? V^ ^/ B | < o P "\ 



Exit 




NO 
ARRAY YES 



5* TRANSMIT DATA TO PROGRAM 



\ NO 
B2 = P J > 



B2 = B2- 



YES 



( B2>QP> ^ > 



COMPLEMENT B2 



< 



IS MOST SIGNIFICANT CHARACTER 
OF FILE NAME = ? 



SAVE ADDRESS OF CIO PARAMETER LIST 



<D 



l\ NO 



GENERATE TAPE XX" 



IS FILE NAME IN THE 
LIST OF I/O NAMES 
STARTING AT RELATIVE 
LOCATION 000002 OF 
THE PROGRAM ? 



YES 



<D 



NO 



SEND ERROR MESSAGE 



-(^Buffer active P 'j 




REQUEST PROGRAM ABORT 



NO 



(WAS PREVIOUS FUNCTION WRITE MODE ? J >C DATA IN BUFFER AND WRITE MODE ? J 



YES 



YES 



Stop 



SEND E.O.R. REQUEST TO EMPTY BUFFER 




B-4 



OUTPTB 




G> 




SENO E.O.R FUNCTION 



YES 



» (bi-o ?y ? — k bi < o ? y ^ — > 



( B2 > ?J- 



YES 



Save address of CIO 

PARAMETER LIST 



< 



BUFFER ACTIVE ? 



c 



NO 



WAS LAST FUNCTION WRITE ? 



J> 



YES 



TRANSMIT DATA TO 
CIRCULAR BUFFER 



TRANSMIT E.O.R. TO 
EMPTY BUFFER 




B2 = B2 - I 

3F 



NO 



->( B2 = Q~^) 



> COMPLEMENT B2 



SEARCH FOR FILE NAME 




C File name found ? J >( I J 



NO 



SEND ABORT REQUEST 
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APPENDIX C 
SIM FLOW CHARTS 



SIM 

CPU SIMULATOR 



READ PPU INPUT REGISTER TO GET ADDRESS 
OF Q REGISTER AND EXCHANGE JUMP TRIGGER 



a. 



P REGISTER OF CENTRAL PROGRAM 



T7PK- 



NO 

K — 



READ NEXT LOCATION FROM CENTRAL P + RA 



STORE FM,I,J,K 



Compute addresses for pseudo 

X-REGISTERS X(j),X(j) AND X( k ) 



TRANSFER TO PROCESS INSTRUCTION 




<D 



-><- 



IS INPUT REGISTER ZERO 



< 



D 



YES 



IS EXCHANGE JUMP 



0?^ 



Read exchange package into PPU 



PACK CURRENT REGISTERS 



WRITE PACKAGE TO CENTRAL 



UNPACK CURRENT EXCHANGE PACKAGE 



MODIFY LOCATIONS FOR PRESENT 
REFERENCE ADDRESS 



SET NEW P REGISTER VALUE TO CENTRAL 



SET EXCHANGE TRIGGER =0 



<D 




O 



c-i 



SAVE CURRENT VALUE 



d 



00 IN LOWEST QUARTER OF WORD 



NO 



YES 



ADD t TO P REGISTER VALUE 



WRITE P REGISTER VALUE TO CENTRAL 



SET ADDRESS OF NEXT CENTRAL 
INSTRUCTION = 000000 



& 



COI RETURN JUMP TO K 



FORM UNCONDITIONAL JUMP 0400 P + I 



FORM VALUE OF K FIELD + RA 



WRITE UNCONDITIONAL JUMP TO (A) 



CLEAR PARCEL COUNTER 



RESET P REGISTER TO K+l 



& 



C02 GO TO K-HBi) 



SET PARCEL COUNTER = 



FORM K + (Bl) 



G> 



MODIFY INSTRUCTIONS FOR 
NEXT READ FROM CENTRAL 



WRITE NEW P VALUE TO CENTRAL 



CLEAR PARCEL COUNT 



i) 



C-2 



© 



SET P = P + I 



WRITE P TO CENTRAL 



© 



C03 CONDITIONAL BRANCH 
ON X] REGISTER 



(ED 



GO TO K IF Xj IS 



SET LOOP COUNT = 5 



V YES 



/■ \ YES s „V ta 

(iS BYTE = OOOO?) ->(L.OOP COUNT =0? J 



N 


NO 






RESET LOOP COUNT - 


5 










NO ( 


\ 


f 




YES 









(iS BYTE = -0(7777)?) 



^LOOP COUNT = ?J 



form value for k field 



SET PARCEL COUNT 
= COUNT + 2 



-l YES f 

_ii> c 



COUNT =4? 



> 



© © 
-0 



NO 

K — 



Move current instruction 
sequence up 15 bits 



(WAS LAST INSTRUCTION \ 
15 BITS ? J 



*G 



I ? 



> 



Go to K if Xj »fc 



SET L= 5 



x s. Tti> 

( IS BYTE L= 0000?J — 3» SET L = L - I 



RESET L = 5 



c 



L « 0? 
YES 



( L=0 ? ) <-■ (IS 



© 



BYTE L= -0(7777)? 



YES 



SET L= L- I Xj # GO 



} 



Xi = 0. NO GO 



© 



C-3 



( ", 2? > 



YES 



1 = 4? 



NO 



GO TO K IF Xj IS INDEFINITE 



GO TO K IF Xj IS POSITIVE 



C 1 * b,t *"°' Vi! >a\ 

\BYT^5=0/ BRANCH V_/ 



NO 



5 ) NO BRANCH 



© 



* Y£S . . /"is BIT 2" OF \ YES /~N 

( 1 = 3? ) > GO TO K IF Xj IS NEGATIVE >( byte _ 1 =K 6 J 



9 



YES 



3* GO TO K IF X) IS IN RANGE 



(IS ABSOLUTE VALUE OF ^ NQ ^ / ""^ 

EXPONENT * 1777 ? J ^K^J 



EXPONENT NOT 
1 3777 



9 



( 1=5? V^ 3* GO TO K IF Xj NOT IN RANGE : 5>( IS EXPONENT t 3777) >f 6 J 



9 



( I =6?y^ >| GO TO K IF Xj NOT DEFINITE^ » (lS EXPONENT = ♦ 1777 j -^ >(7) 



9 



9»T IS EXPONENT = t 1777 ) ^\ 6 ) 



C-4 



C04 GO TO K IF 
Bi = Bj 



COMPARE BITS \ NO 

2 l2 -2 17 Bl-Bj = P 



CDO LOWER 12 BITS ^ 
OF Bi = B j P J 



*© 



Bi * Bj 



6 ) Bi = Bj 



C05 GO TO K IF 
Bi * Bj 



Bi* Bj 



^ NO / ^COMPARE BITS ^ 

^~f V2 IZ -2 17 Bl-Bl * ? J 



fgO /COMPARE BITS \ 

^\. 2°- 2" Bi-Bj = 0?J 



YES 



& 



Bi = Bj 



C06 GO TO K IF 
Bi 2 Bl 



(BI NEGATIVE P ) >Tb j POSITIVE P J ^\£/ 



(bj NEGATIVE P ) Kl) Cl) 



( Bi . B ; <0? y £g — ^q 



C07 GO TO K IF 
BKBj 



f Bl POSITIVE P J 



Cb> POSITIVE ?J *CO 



j> ( Bi-B)>oT) -^ >@ 



NO 



(!) 



C-5 



CIO TRANSMIT 

Xj -> Xi 



SET LOOP COUNT 
L= 













AJ|_-W A,l|_ 






> 


1 








L=L + I 












(\-= 


^?X- 


VC 





YES 



& 





Cll LOGICAL PRODUCT 
Xj- Xk -*• Xi 






\' 






SET LOOP COUNT 
L= 








v 






Xj L (LP) Xk u H». Xi L 








V 






L=L+ 1 






v 








NU 


fx- 


«?\ 



YES 



(?) 



CI2 LOGICAL SUM 
Xj + Xk -» Xi 



SET LOOP COUNT 
L= 



SET A = COMPLEMENT 
BYTE Xjl 



SET B = COMPLEMENT 
BYTE Xk|_ 



SET C= A (LP) B 



SET BYTE Xi L = 
COMPLEMENT C 



NO 



(HD 



YES 



6 



CI3 LOGICAL OIFF. 
Xj- Xk -> Xi 



SET LOOP COUNT 
L= 



BYTE 

Xi u = Xj L (LD)Xk L 



<*> 



CI4 TRANSMIT Xk 
COMPLEMENT -*• Xi 



SET LOOP COUNT 
L = O 



FETCH BYTE XkL 
TO A REGISTER 



Complement A 



Xi L = A 



L=L+ I 



YES 



C-6 



CI5 LOGICAL PRODUCT 

Xj ■ Xk COMPLEMENT ->■ X i 



SET LOOP COUNT 
L= 



FETCH BYTE XkL 
TO A REGISTER 



COMPLEMENT A 



XiL=Xj L <LP) A 



L=L+ I 



NO 



& 



YES 



6 



CI6 LOGICAL SUM 

Xi = Xj + XK COMPLEMENT 



SET LOOP COUNT L= 



FETCH BYTE Xj L <r 



COMPLEMENT A REGISTER 



A = LOGICAL PRODUCT A * XkL 



JL 



Xi L = COMPLEMENT A 



(TT77> 



YES 







CI7 LOGICAL DIFF 

Xi * Xj - Xk COMPLEMENT 



SET LOOP COUNT L = 



> FETCH COMPLEMENT XkL 



Xi L = A (LD) XJ L 



L= L+ I 



NO 



<HD 



© 



C20 LEFT SHIFT 
Xi jk PLACES 




\ 


' 






SET A =jk 






N 


' 





RJM LSFT SHIFT 
Xi BY (A) 







C2I RIGHT SHIFT 
Xi jk PLACES 



SET A =jk 



RJM RSFT SHIFT 
Xi BY (A) 



X 

© 



C22 SHIFT Xk NOMINALLY 
LEFT (Bj) PLACES 



TRANSFER Xk TO Xi 



C23 SHIFT Xk NOMINALLY 
RIGHT (Bj) PLACES 



TRANSFER Xk TO Xi 



( B ,,Q f y !H ^ KM LFST ) >0 ( B| < ? ^ » < <"» LFOT ) — »Q 



Q 



IS Bj >77 



Z> 



-> SET Xi = .0 



( RJ M RSFT } 



© 



C-7 



(^is bj>77 ?y 



YES 



—> SET Xi = 0....0 



{ RJM RSFT^ 

6 







LSFT SHIFT COUNT 
IN A REG. 



compute multiples 
of 6 bit shifts n 

AND R 




Modify instructions 
to left shift by 

R PLACES 




SET R • 



RSFT SHIFT COUNT IN 
A REG. 



COMPUTE MULTIPLES OF 6 
BIT SHIFTS N AND R 



SET L = REGISTER LENGTH 



MODIFY ADDRESSES 
WITH STARTING 
ADDRESS OF XI 



(n°o? y 



MODIFY ADDRESSES FOR 
RIGHT SHIFT 6 



KRJM RSFN RIGHT \ 
SHIFT Xi / 



N = N - I 



NO 



f N * ? } 



< 



R = O ? 



> 



MODIFY FOR SHIFT 
R PLACES 



CORRECT FOR SIGN 
EXTENSION 




SET M = L 



&\ SHIFT Xi M - I TO Xi M 



M = M - I 



-/m= ? ) 



C-8 




C24 UNROUNDED 
NORMALIZE 


— O^- 


C25 ROUNDE0 
NORMALIZE 


> 


' 


M 


SET B«T 2" 1 =0 


SET BIT 2"'=l 












\ 


1 





GET UNBIASED EXPONENT 



/ V 

(POSITIVE? J- 



c 



777777? 



y 



YES 



TRANSMIT Xk— > XI 



6 



(j)Q\m?y^r- 



\ 


NO 

f 


FORM NORMALIZE COUNT N 


\ 


\ YES 



RJM LSFT SHIFT Xi 
LEFT N PLACES 



GET UNBIASED EXPONENT - N 



C N > 6o\ >(lS NORMALIZE UNROUNDED ?J 



YES 



SET Xl = 0....0 



© 



G 



ARE BITS 2 10 ANO 2 1 ' ALIKE ? 



> 



> SET Xi=0....0 UNDERFLOW 



YES 



SET BIASED EXPONENT 
INTO BYTE 4 OF Xi 



STORE N IN Bj 



C26 UNPACK Xk TO 
Xi ANO Bj 



(does Xi = Xk y 



YES 



NO 



TRANSMIT Xk TO Xi 



EXTEND SIGN OF 
COEFFICIENT 



TRANSMIT UNBIASED 
EXPONENT TO Bj 



© 



CZ7 PACK XI FROM 
Xk AND Bj 



C UNBIASED EXPONENT > 1777 ? J 



YES 



NO 



TRANSMIT Xk TO Xi 



SET BIASED EXPONENT 
INTO BYTE 4 OF Xi 



-> SET Xi = 0....0 



(WAS ERROR UNDERFLOW?) 



NO YES 



© © 







C-9 



© 



C30 FLOATING 
ADD 



<r 



<$ 



C3I FLOATING 
SUBTRACT 



(IS EITHER OPERAND = A 
± INDEFINITE ? J 



YES 



(ARE OPERANDS Y. 
INFINITE ? T 



RJM F PAD ADD 
Xj AND Xk 



(E 



FM = 32 OR 33? 



^MD 



GET UNBIASED 
EXPONENT - 60 



( EXPONENT <- 1777 ?y 



YES 



CORRECT EXPONENT 
FOR COEFFIENT SIGN 



TRANSFER LOWER 
48 BITS TO Xi 



-> 



SET Xi = 1777. .0 



(EXIT REQUESTED ? J *\JJ 



STORE EXIT 
TYPE TO R A 



SET P= 000000 



> SET Xi = 0...0 



•0 



-0 




EXTEND SIGN OF 
COEFFICIENT FOR 
Xj AND Xk 



C Xj NORMALIZED P J TT^C SIGN X j = SIGN Xk ? J 



c 



Xk NORMALIZED P 



YES 



SET ROUND BIT IN 
BOTH OPERANDS 



COMPLEMENT Xk 



C32 FLOATING 
DP ADD 



C33 FLOATING 
OP SUBTRACT 



C34 FLOATING 
ADD ROUND 



C35 FLOATING 
SUBTRACT ROUND 



SET ROUND BIT IN 
LARGER OPERAND 



IS FM = 34 OR 35 ? 



REPLACE ROUND BITS 
WITH CORRESPONDING 
SIGN BITS 



Extend sign bits into 
lower 48 bit positions 

OF Xj AND Xk. 



SHIFT SMALLER OPERAND 
BY EXPONENT DIFFERENCE 



ADD Xj AND Xk AS 
A 9 BYTE QUANITY 



RIGHT SHIFT I PLACE IF 
COEFFICIENT OVERFLOW 



TRANSFER UPPER 
48 BITS TO Xi 



C-IO 




C36 INTEGER ADD 
Xi = X j + Xk 



SET CARRY BIT = <r 



SET LOOP COUNT L=4 



SET Xi L = CARRY 
BIT + Xjl+ Xk|_ 



STORE CARRY BIT 



SET L = L- I 



NO 



C 



ioT) 



YES 



SET LOOP COUNT L= 4 



->( IS CARRY BIT = ? ")• 



YES 



NO 



SET XiL= CARRY 
BIT + XiL 



STORE CARRY BIT 



NO 



(kop) 



YES 
K 



( IS Xi = 77.... 7 ? ) *\*) 



YES 



( WERE THERE 5 CARRIES P ) ^CO 



C37 INTEGER SUBTRACT 
Xi = X j - Xk 



COMPLEMENT Xk 
Xi = Xi + (- Xk) 



SET Xi = 00. ...0 



<*> 



C-ll 



C40 MULTIPLY 



C4 I MULTIPLY ROUND 



SET ROUND BIT = OOOO 



SET HOUNU 
BIT = 4000 



STORE SIGN OF PRODUCT 



c 



IS Xj OR Xk INDEFINITE ? 



> 



SET XI = 
17770000. .0 



ARE BOTH OPERANDS 
VALID NUMBERS ? 



SET CORRECT 
FAULT IN Xi 



■0 



C42 D.P MULTIPLY 




w 






SET ROUND 
BIT = 0000 






v 








SET Xi = 
770.. ..0 



<r 



(ISXjORXkN 
INDEFINITE ?) 



RJM MPY MULTIPLY 
Xi * Xk 



SET CORRECT 
FAULT IN Xi 



(ARE BOTH OPERANDS^ 
VALID NUMBERS ? J 



( RJM MPY) 



rIS FINAL EXPONENT A 
> 1777 ? / 



SET Xi = 37 
OVERFLOW 



"0....0 ^Q 



( exponent <-i777pV 



SET Xi = 

UNDERFLOW 



TRANSFER UPPER 
48 BITS TO 



TO 




(WAS PRODUCT A YES 
NORMALIZED P J 



SET M = M - I 



COMPUTE SUM OF 
EXPONENTS + M 




©^ 



SET Xi = 
37770.. .0 



(IS FINAL EXPONENT^ 
-48 >I777 P J 



H0 



0*- 



SET Xi 
0. ...0 



<- 



(IS EXPONENT A 
-48 < -\777?J 




©*■ 



TRANSFER LOWER 
48 BITS TO Xi 



SET BOTH COEFFICIENTS 
POSITIVE 



SET LOOP COUNT L = 
BYTE COUNTER 



SET LOOP COUNT D=4 
DIGIT COUNTER 



5» GET MS.D FROM BYTE L 



SHIFT LEFT 3 
AND STORE BYTE L 



( IS DIGIT N = ? \ 



ADD MULTIPLICAND TO 
PRODUCT REGISTER N TIMES 



SHIFT MULTIPLICAND 
LEFT 3 PLACES 



D = D - I 



I . 

C D = ? V 



> L = L + I 



c 



(WERE BOTH OPERANDS A_| 
NORMALIZED ? J 



(IS PRODUCT \ 
NORMALIZED ? J 



YES 




Left shift i place 



C-12 



C43 FORM MASK OF 
jk BITS IN Xi 



CLEAR Xi 



r is jh = o ?y 



YES 



NO 



SET Xi = 400 



SET jk = jh - I 
V 



RJM RSFT EXTEND SI6N 



>" 





C 47 SUM OF I'S 
IN Xk TO Xi 








> 


1 








SET M = 






\ 


f 








SET COUNT L= 4 






> 


1 








SET N = 14 












\ 


' 








FETCH BYTE Xk L 






\ 


1 


f IS MOST SIGNIFICANT 
I BIT = ? 


>1 




\ 


NO 

1 




SET M»M + 1 






\ 


1 






(" IS N - 1 = ? 


"V" 


J 




\ 


YES 








\- 







YES 



SET Xi =0.0 



SET BYTE Xi + 4= M 





C44 DIVIDE 




C45 DIVIDE ROUND 




> 










' 









(IS EITHER OPERAND^ 
INDEFINITE ? / 



YES 



3» SET XI = 17770.. . . 



KD 



NO 



( ARE OPERANDS VALID ?J 



NO 



SET PROPER 

FAULT II* 



SET OPERANDS POSITIVE 



c 



fm = 44 



} 



YES 



NO 



SET ROUND BYTE = 2525 



SET L = 60 «=■ 



CIS DIVIOEND - \ 
DIVISOR < ? J 



YES 



NO 



RESTORE NEW DIVIDEND 



ADD I TO QUOTIENT 



C\YES ^ 
LOOP COMPLETED \_"T 
L = ? J *1_ 



SET M = 



NO 



SHIFT DIVIOEND AND 
QUOTIENT LEFT I PLACE 



C-13 



n ^© 



K COEFFICIENT \ 
OVERFLOW ? J 

NO lc 



YES 



RIGHT SHIFT 
I PLACE 



> SET M = M - I 



COMPUTE EXPONENT 
Xi - Xk - M 



(overflow fV 



ST0RE 37770... 
TO Xi 



CORRECT EXPONENT 
FOR QUOTIENT SIGN 



NO 



UNDERFLOW 



> 



> CLEAR 



KHO 



STORE BIASED 
EXPONENT TO Xi 



CORRECT Xi FOR SIGN 



& 



C50 

Ai= Aj + K 



C60 

Bi = Aj + K 



RJM CINA COMPUTE 
ADDRESSES FOR Ai 
SAVE IN INCA 
AND INCB 




RJM CINB COMPUTE 
ADDRESSES FOR Bi 
SAVE IN INCA AND 
INCB 



RJM SMAK 
ADD Aj+ K 



STORE LOWER 12 
BITS TO (INCB) 



<~® 



STORE UPPER 6 BIT 
TO (INCA) 



C6I 

Bi= Bj + K 



/ RJM SMBK \^ 
N. ADD Bj+K f^ 



© 



/ \ YES f 

(50 SERIES ?) W 



RJM RDWT EXECUTE 
READ OR WRITE 



V© 



C52 

Ai = Xj +K 



/ RJM CINA \ / RJM CINB \ / 



C62 

Bi = Xj+ K 



\ / RJM CINB \ 



RJM CINA 



RJM 
ADD X 



SMXK \_ 



C53 

Ai= Xj+ Bk 



/ RJM CINA \ 



/ RJM SMXK V. 
\ ADD Xj+Bk r*~ 



STORE LOWER 12 
BITS TO (INCB) 



«s- 



STORE UPPER 6 BITS 
TO (INCA) 



D 



YES 



NO 







C63 

Bi= Xj+Bk 



RJM CINB 



■© 



C54 

Ai = AJ + Bk 



C64 

Bi = Aj + Bk 



RJ 
ADD 



->/ RJM RDWT \ — >(j) 



M SMAB \ 
D AJ + Bk f^~ 



© 



C55 

Ai = Aj-Bk 



/ RJM DFAB \ 
\ ADD A)-Bk /^~ 



C65 

Bi= Aj-Bk 



\ / RJM CINA \ / RJM CIMB \ ^ RJM CINA^ ^ 



RJM CINB 



C56 

Ai= Bj +• Bk 



/ RJM CINA \ 



/ RJM SMBB \ 
\ ADD Bj + Bk /^~ 



C66 

Bi = Bj+ Bk 



/ RJM CINB ^ 



C57 

Ai = BJ - Bk 



/ RJM CINA \ 



/ RJM DFBB \^ 
\. ADD Bi - Bk/^" 



© 



C67 

Bi « BJ - Bk 



/ RJMCINB \ 



C-14 





YES 



WRITE Xi TO CM. 



IS i DESIGNATOR = ? 



NO 



MOO I FY CENTRAL READ 
AND WRITE WITH 
ADORESS OF Xi 



c 



IS ADDRESS IN RANGE ? 



y^ < 18 I - 6 OR 7 P ) 



YES 



YES 



IS I = 6 OR 7 



NO 



READ CM. TO XI 




Exit 



NO 



7} [ SETXI -0....0 | 



EXIT ON ADDRESS \ YES 

OUT OF RANGE 1 — > 

REQUESTED ? 



NO 



STORE EXIT TYPE 




C-15 



C70 

Xi = Aj + K 



SET Xi = 0..0 





C7I 

Xi = Bj + K 






V 




SET Xi = 0.0 




v 





C72 

Xi - X) + K 




V 




SET BITS 

pIB ^ ?59 = n 




v 



RJM CINX STORE 
ADDRESS OF Xi IN 
INCA AND INCB 



RJM CINX 



( RJM CINX \ 



RJM SMBK ADO 



RJM SMAK ADD 



A '+ K ) 



Bj + K ) Q 



RJM SMXK ADD Xj + 



STORE LOWER 12 BITS 
IN (INCB) 



*© 



STORE UPPER 6 BITS 
IN (INCA) 



( IS BIT 2 17 > I P ) 



YES 



(S 



C73 

Xi = XJ + Bk 


> 


1 


SET BITS 
2 IB^. 2 59 , 


\ 


1 



C74 

Xi = AJ+ Bk 




> 


1 




SET Xi = 0....0 


\ 


1 



RJM CINX 



RJM CINX 



RJM 
ADD 



SMXB \ 
Xj + Bk / 



RJM SMAB 
ADD Aj + Bk 



STORE LOWER 12 
BITS IN (INCB) 



© 



STORE UPPER 6 
BITS IN (INCA) 



c 



BIT 2"= I ? 



> 



SET BITS 

2 17 _ 2 59 s I 



-0 



© 



C-16 



HD 



© 





C75 

Xi = Aj - Bk 






V 




SET XI = 0...0 




v 





—>(i) ( RJM CI NX ~) 



RJM DFAB 
ADD Aj - Bk 



© 



C76 

Xi = Bj + Bk 




> 


f 




SET XI = 0...0 


\ 


1 



<RJM SMBB \ 
ADD Bj + Bk / 



© 



C77 

Xi = Bj - Bk 


> 


1 


SET Xi = 0....0 


> 


1 



<RJM SMBB \ 
ADD Bj - Bk / 

© 
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